If [C83] <> "" Then
Range("B1:H56, B65:H120").Select
Else
Range("A1:H56").Select
End If
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Range("I18").Select