Sub Macro1()
Dim onglet As Variant
onglet = "COUVERTURE"
Sheets("Conditions").Select
If Range("I2").Value <> 0 Then onglet = onglet & "," & "A"
If Range("I3").Value <> 0 Then onglet = onglet & "," & "B"
Sheets(Split(onglet, ",")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\TARIFS CLIENTS\" + "Tarif Test" + ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Sheets("Conditions").Select
ActiveWorkbook.Close False
End Sub