Sub GénérerBulletinPaie()
Dim Sht As Worksheet
Application.ScreenUpdating = False 'on desactive le refresh pour éviter l'effet sapin de noel
Dim TabRH() As Variant 'déclaration d'un tablo VBA
With Sheets("Data Base").ListObjects("BASE_RH") 'avec la table de la feuille
TabRH = .Range.Value 'on met tout dans un tablo VBA
End With
FirstFeuille = Sheets.Count
For i = 2 To UBound(TabRH, 1) 'pour chaque ligne du tableau à partir de 2 pour éviter la ligne d'entete
Sheets("Bulletin de paie").Copy after:=Sheets(Sheets.Count) 'on copie la feuille
With ActiveSheet 'avec la feuille qui vient d'etre créée
.Name = TabRH(i, 1) 'on renomme la feuille avec le matricule
.Range("F5") = TabRH(i, 1) 'on met le matricule en F5
End With
Next i
LastFeuille = Sheets.Count
NomFichier = "C:\Users\vince\Downloads\Bulletins de paie.pdf"
'on imprime toutes les feuilles entre FirstFeuille et LastFeuille dans un pdf unique
ActiveWindow.SelectedSheets.PrintOut from:=FirstFeuille, to:=LastFeuille, Copies:=1, Collate:=True, IgnorePrintAreas:=False
Application.ScreenUpdating = True
End Sub