Sub g()
If MsgBox("Etes vous sur de vouloir imprimer?", vbQuestion + vbOKCancel, "Confirmation") = vbYes Then
Application.ScreenUpdating = False
'Chemin
Dim chemin As String
chemin = Sheets("Ressources").Range("I1").Value
'Nom pdf
Dim nom As Variant
nom = "Induction pictures - PCE-" & Sheets("Ressources").Range("c2").Value & " - " _
& Sheets("Ressources").Range("c3").Value & " - " & Sheets("Ressources").Range("c4").Value
'Zone d'impression
Dim wksFeuille As Worksheet
Dim strSelection() As String
Dim i As Long
i = 0
For Each wksFeuille In ThisWorkbook.Sheets
If wksFeuille.Range("A1").Value = 1 Then
ReDim Preserve strSelection(i)
strSelection(i) = wksFeuille.Name
i = i + 1
End If
Next wksFeuille
'Impression
Sheets(strSelection).Select
ChDir chemin
ActiveWindow.SelectedSheets.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
Sheets("Start").Select
Application.ScreenUpdating = True
End If
End Sub