Bonjour et bienvenue,
Essaye ce code qui va copier tous les noms de la feuille "Mois" et imrpimer ta feuille à chaque changement.
Sub Imprime()
Dim i As Byte
' Macro par Dan pour MAt1987 - Excel Pratique le 13/10/08
With ActiveSheet
For i = 2 To .Range("A65536").End(xlUp).Row
.Range("B1") = Sheets("Mois").Range("A" & i)
.Range("B2") = Sheets("Mois").Range("B" & i)
.PrintOut
Next
End With
End Sub
Amicalement
Dan