Cette leçon combine une constante, une boucle et un export PDF pour générer, en une seule exécution, un fichier PDF distinct pour chaque employé d'une liste.

Sub GenererFichesPaie()
    Const DOSSIER As String = "C:\Paie\"
    Dim i As Integer
    Application.ScreenUpdating = False

    For i = 2 To 5
        Worksheets("Modele").Range("B2").Value = Cells(i, 1).Value
        Worksheets("Modele").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DOSSIER & Cells(i, 1).Value & ".pdf"
    Next i

    Application.ScreenUpdating = True
    MsgBox "Fiches générées"
End Sub

À chaque tour de boucle, le matricule de l'employé courant est écrit dans une cellule de la feuille modèle (B2), puis cette feuille est exportée en PDF sous un nom de fichier basé sur ce même matricule — un seul modèle réutilisé pour générer autant de fiches individuelles que de lignes dans la liste.

À vous de jouer : adaptez cette macro pour inclure aussi le nom de l'employé (colonne B de la liste) dans le nom du fichier PDF généré.