prob en vba (imprimer)

[jee]

Bonjour a tous

mon prob est que j'aimerai par exemple

si en A1 il y a écris quelque chose
alors imprime feuil1
sinon rien

si en A2 il y a écris quelque chose
alors imprime feuil2
sinon rien


merci

 

[jee]

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