Dim Rep(1 to 5) As String
Sub RECPDF()
Rep1 = "C:\Users\Thomas\Desktop\Dossier1\"
Rep2 = "C:\Users\Toto\Dossier2\"
Rep3 = "C:\Users\Tata\Dossier3\"
Rep4 = "C:\Users\Titi\Dossier4\"
Rep5 = "C:\Users\Tutu\Dossier5\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Rep1 & "Document1" & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Rep2 & "Document2" & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Rep3 & "Document3" & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Rep4 & "Document4" & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Rep5 & "Document5" & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub