Function NomDest$()
Dim F, N$
N = Worksheets("Devis Client").Range("A1")
N = "Devis " & Replace(N, "/", "")
F = Application.GetSaveAsFilename(N, "fichier pdf,*.pdf")
If F <> False Then NomDest = F
End Function
Sub ImprimePDF()
Dim F, N$
N = NomDest
If N <> "" Then
Sheets(Array("Devis Client")).Select 'Selectionne le Feuille à Imprimer'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
End Sub