XL 2019 macro boucle dynamique d'impression

[le___destin]

la cellule N18 contient une liste de Numéro dynamique déjà de 1 jusqu'à le nombre de ligne " suivant le nombre de ligne " 1.2.3.4...
pour chaque valeur de N18 une série de cellules se remplie a l'aide de la fonction RechercheV puis j'imprime la page
je besoin de vos aide pour créé un macro " boucle " : selecte la valeur de N18 puis imprime la feuille active
N18 = 1 ----- imprimer
N18 = 2 ----- imprimer
N18 = 3 ----- imprimer
.......
jusqu'à la dernière valeur de la cellule
et un deuxième macro qui imprimer toute les feuille dans un seul ficher .pdf

 

[le___destin]

bonsoirs
je besoin vos aide

 

[le___destin]

bonsoirs

 

[le___destin]

Merci a vos aide

 

[le___destin]

bonsoir forum

 

[le___destin]

bonsoir tous ..
jai le code pour que j'imprime tout mes pages d'un seul
est-ce qu'il y a quelqu'un pour m'améliorer ce code pour que touts soit enregistrer dans la meme fichier pdf et merci d'avance

Sub test()

For i = 1 To WorksheetFunction.Max(Feuil1.Range("A:A"))
[N18] = i
ActiveSheet.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Next
End Sub