Imprimer meme page avec 1 cellule differente

Bonjour,

La macro suivante pourrait faire ce que tu veux, juste à nommer la plage où est la liste de nom : ListeDeNom

Sub test()

Application.Goto Reference:='ListeDeNom'
v1strow = Selection.Row
v1stCol = Selection.Column
vnbligne = Selection.Rows.Count

For x = v1strow To v1strow + vnbligne - 1
Range('F3').Value = Cells(x, v1stCol)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Next x

End Sub


Salutations
Eric

Salut Eric, merci pour ta réponse, par contre il a fallu que je supprime ce qui suit apres printout pour que ça fonctionne.
Donc seulement ligne :
ActiveWindow.Selectedsheets.printout

Encore merci