Voici le début de la macro pas au point...... :
Range("F3").Select
Range("F3").Value = "02"
ActiveWorkbook.RefreshAll
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"W:\.....................................................\DEPT 02.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Range("F3").Select
Range("F3").Value = "59"
ActiveWorkbook.RefreshAll
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"W:\.....................................................\DEPT 59.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False