Sub Imprimer_Fiche()
With Sheets("Fiche")
A modifier
If Feuil1.Range("k24") = "NON" Then
.Visible = True
.PageSetup.PrintArea = "$A$1:$AE53"
.PrintPreview
Else
.Visible = True
.PageSetup.PrintArea = "$A$1:$AE114"
.PrintPreview
End If
End With
End Sub