bonjour Bruno
en supposant que la date '2006' se trouve en 'A1' pour toutes les feuilles d un classeur
Private Sub Imprimer2006()
retour = MsgBox('Imprimer les feuilles de 2006 ! ', 4 + vbInformation, ' Impression 2006 Uniquement')
If retour = vbYes Then
Application.ScreenUpdating = False
For Each Feuille In Sheets
If Feuille.Range('A1').Value = 2006 Then
Feuille.PrintOut
End If
Next
End If
End Sub
bon travail
E et F