Bonjour zinelamri
Sujet déjà traité sur ce forum, mais voici un solution
Il suffit d'utiliser ce code
Sub Impression()
Dim dLig As Long, Lig As Long
' Définir la feuille source
With ThisWorkbook.Sheets("Base")
' Dernière ligne remplie du tableau
dLig = .Range("A" & Rows.Count).End(xlUp).Row
' De la ligne 7 de départ à celel de fin
For Lig = 7 To dLig
' Inscrire la valeur de la celluel Ax
' La formue RECHERCEHV fait le reste
Sheets("Modele").Range("B10").Value = .Range("A" & Lig).Value
' Imprimer la feuille
Sheets("Modele").PrintOut
Next Lig
End With
End Sub
Et dans la feuille "Modele" d'utiliser la fonction "RECHERCHEV()" en fonction du numéro d'inscription
Voir fichier joint
A+