Sub pdf()
With Sheets("Facture").[G15]
If .Cells <> "" Then
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Sheets(CStr(.Cells)).Delete
.Parent.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = CStr(.Cells)
.Parent.Activate
End If
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"F:\pdf\2e2i.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Sheets("Clients").Select
Range("B3").Select
End Sub