Dim sNomFichierPDF As String
sNomFichierPDF = "Feuille d'atelier du " & Format(Feuil1.Range("e8"), "dddd dd mmmm yyyy")
If Len(sNomFichierPDF) > 0 Then
Feuil1.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sNomFichierPDF & ".pdf" _
, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
ChDir _
"C:\Users\pc pascal\Dropbox\Documents Pascal\Pointages\Feuilles d'atelier"
Range("g6:h6,E8:J8,G5:H7,a18:i23,g32,i32,g34,i34,i41,h36").ClearContents
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\pc pascal\Documents\Modèles Office personnalisés\FEUILLE ATELIER.xltm" _
, FileFormat:=xlOpenXMLTemplateMacroEnabled, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End If