Sub imprimer()
Dim Sh As Worksheet
If Range("A22") = "" Or Range("C22") = "" Or Range("D22") = "" Or Range("E22") = "" Or Range("F22") = "" Or Range("H22") = "" Or Range("J22") = "" Or Range("L22") = "" Then
MsgBox ("Les zone indiquée (*)doivent être renseignées et cocher l'une des cases à cocher")
Exit Sub
End If
With Feuil4
If .Range("K22") = "" Or .Range("K22") = "Adulte" Then
Set Sh = Feuil1
Sh.PageSetup.PrintArea = "$A$1:$K$48"
Else
Set Sh = Feuil2
Sh.PageSetup.PrintArea = "$A$1:$K$46"
End If
End With
Application.ScreenUpdating = False
Sh.PrintPreview
'Sh.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = True
End Sub