Cette leçon combine une constante, la désactivation du rafraîchissement d'écran et un export PDF pour générer automatiquement la liste d'émargement d'un événement associatif.

Sub ExporterListeParticipants()
    Const DOSSIER_EVENEMENTS As String = "C:\Evenements\"
    Application.ScreenUpdating = False

    Dim i As Integer
    For i = 2 To 100
        If Cells(i, 3).Value = "Confirmé" Then
            Cells(i, 1).Font.Bold = True
        End If
    Next i

    Worksheets("Participants").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DOSSIER_EVENEMENTS & "liste_participants.pdf"

    Application.ScreenUpdating = True
    MsgBox "Liste exportée"
End Sub

La boucle met en gras les participants confirmés avant l'export, pendant que ScreenUpdating = False évite un clignotement visible sur 100 lignes ; la constante DOSSIER_EVENEMENTS centralise le chemin de destination du fichier final.

À vous de jouer : adaptez cette macro pour exporter une liste différente selon le nom de l'événement, passé en paramètre de la Sub.