Sub facture_sans_ip_envoi()
'
' facture_sans_ip_envoi Macro
'
Range("AD13:AP13").Select
Selection.Copy
Range("AD15:AP15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("AE18"), _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True