j'ai cherché pendant deux jours et je suis arrivé a :
If all2 = "2" Then
Sheets("feuil2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
End If
If all3 = "2" Then
Sheets("feuil3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
End If
If tana = "2" Then
Sheets("feuil4").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
End If
all2,all3 et tana la cellule A1,A2 et A3 de la feuille1 qui ont pour valeur 1 ou 2
si all2 = 2 imprimer feuil2
je ne trouve pas l'erreur
merci encore pour votre aide