Impression d'une feuille avec une variable (mois)

bonjour a tous

je dois me faire une fiche de travail mensuel pour mes gars

j'ai crée un feuille de garde, avec une liste pour changer le nom de la personne

j'ai ensuite créé une feuille "fiches" avec le tableau

j'aurais aimé pouvoir imprimer cette feuille avec une variable "mois" pour m'éviter si possible de créé 12 pages

merci

cordialement

Bonjour fireangel-obt et

Dans votre onglet "fiches" an A4, vous voulez une date ou le mois en texte suffit

Si tel est le cas

1) Vous nommez la plage B1:B12 des mois en "ListeMois"

2) Vous faite une boucle sur les cellules de cette plage

Sub Imprimer()
  Dim Cel As Range

  With ThisWorkbook.Sheets("fiches")
    For Each Cel In Range("ListeMois")
      .Range("A4") = Cel.Value
      .PrintOut
    Next Cel
  End With

End Sub

A+

MERCI !!!!!

fonctionne parfaitement