Sub création_suivi()
Dim sRep As String
Dim sFilename As String
Sheets(Array("Suivi des mouvements", "Suivi des modifications")).Select
sRep = "C:\Users\Did25\Downloads\suivi des flux\"
sFilename = Worksheets("Suivi des mouvements").Range("A1") & " du " & _
Replace(Sheets("Suivi des mouvements").Range("B1").Value, "/", ".")
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sRep & sFilename, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
If MsgBox("Confirmez vous la fermeture du fichier " & " ?", vbYesNo) = vbNo Then Exit...