Zone impression en fonction d'une cellule

Bonjour à tous,

Bon je sèche... en PJ mon fichier pour info ;)

Je vous présente mon problème :

J'aimerai qu'avec un simple menu déroulant une macro se lance en fonction du texte.

Si C19 de la feuille "Données" = "Non elle est OK" alors il met en zone d'impression sur la feuille "1ere page" les lignes de 1 à 118.

Si C19 de la feuille "Données" = "Oui elle est HS" alors il met en zone d'impression sur la feuille "1ere page" les lignes de 1 à 177.

C'est peut être tout bête mais je n'y arrive pas

Merci d'avance la team vous êtes bon :)

bonjour Lasgalen,

Sub Imprimer()
     With Sheets("1ère page").PageSetup
          Select Case UCase(Sheets("données").Range("C19"))
               Case UCase("Non"): .PrintArea = "A1:M118"
               Case UCase("Oui") : .PrintArea = "A1:M177"
          End Select
     End With
End Sub

Hello,

Au top sa fonctionne merci pour la solution et la rapidité :)