Sub test_impr_sauv_pdf()
Sheets("GOUDE GLASS").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Z:\BUREAU ETUDE\#COMMANDE VITRAGES\COMMANDE VITRAGE AUTO\" & Range("J2") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("GLASSOLUTIONS").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Z:\BUREAU ETUDE\#COMMANDE VITRAGES\COMMANDE VITRAGE AUTO\" & Range("J2") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("INNOVERRE").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Z:\BUREAU ETUDE\#COMMANDE VITRAGES\COMMANDE VITRAGE AUTO\" & Range("J2") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("saisie").Select
Range("a3:a" & Range("a65536").End(xlUp).Row).Select
Selection.Replace What:="à commander", Replacement:="soldé", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
For i = 3 To Range("a65536").End(xlUp).Row
If Cells(i, 1) = "soldé" Then Cells(i,16).Value = Cells(i,16).Value
Next i
End Sub