Sub Impression()
ThisWorkbook.Sheets("Données").PrintOut From:=1, To:=1, Copies:=1
If ThisWorkbook.Sheets("[COLOR="Red"]NomDeLaFeuilleAPreciser[/COLOR]").Cells(33, 1) = 1 Then
ThisWorkbook.Sheets("Résultats").PrintOut From:=1, To:=1, Copies:=1
Else
ThisWorkbook.Sheets("Résultats").PrintOut From:=1, To:=4, Copies:=1
End If
End Sub