sub PDF ()
'
Feuil2.Visible = True
Dim nompdf As String
nompdf = Feuil2.Range("B19") & Feuil2.Range("C19") & Feuil2.Range("D19") & "_" & Feuil2.Range("M2") & Feuil2.Range("M3") & "_" & Feuil2.Range("D1") & "_" & Feuil2.Range("M1") & ".pdf"
MsgBox nompdf
With ActiveWorkbook
Feuil2.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
nompdf, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True
End With
Feuil2.Visible = False
end sub