Sub Macro3()
Dim NomFichier As String
Dim CA As String
NomFichier = Sheets("IMPRESSION").Range("E15").Value
Sheets(Array("Infos générales", "01", "02", "03", "04", "05", "06", "07", "08", "09", "10")).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=NomFichier & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hhmm") & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
MsgBox "Fichier enregistré dans les Documents de : " & ActiveWorkbook.UserStatus(1, 1), vbOKOnly + vbInformation, "PLAN DE PREVENTION SAUVEGARDE"
Sheets("IMPRESSION").Select
Range("B11:I11").Select
End Sub