Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D5]) Is Nothing Then
With PageSetup
.PrintArea = ""
If UCase([D5]) = "OUI" Then .PrintArea = "C59:Q104"
If UCase([D5]) = "NON" Then .PrintArea = "C10:Q55"
.PrintTitleRows = "$1:$9"
End With
End If
End Sub