imprimer, si neccessaire

[blibo]

bonjour le forum,
merci pour la ou les éventuelles solutions que vous pourrez apporter à mon problème. je l'ai déjà cherchée mais en vain.
je voudrais pouvoir imprimer les 2 premières pages recto verso.
le reste, sous conditions: si Page1, cellule H13 occupée alors imprimer Pages 3 et 4 recto verso.
Si , Page1, N13 occupée alors imprimer Pages 5 et 6 recto verso. Si Page1, cellule U13 occupée, imprimer Pages 7 et 8 recto verso. Si Page1, cellule AA13 occupée, imprimer Pages 9 et 10 recto verso. Si Page1 , cellule AH occupée, imprimer Pages 11 et 12 recto verso.
cordialement

 

[Hieu]

Salut,

C'est pas très optimisé, mais ça doit faire le boulot :

Sub mlk()
Call impression(1)
If Not IsEmpty(Range("h13")) Then Call impression(3)
If Not IsEmpty(Range("n13")) Then Call impression(5)
If Not IsEmpty(Range("u13")) Then Call impression(7)
If Not IsEmpty(Range("aa13")) Then Call impression(9)
If Not IsEmpty(Range("ah13")) Then Call impression(11)
End Sub
Sub impression(a)
    ActiveWindow.SelectedSheets.PrintOut From:=a, To:=a + 1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
End Sub

 

[blibo]

Merci Hieu
je m'en vais l'essayer voir