Private Sub CommandButton1_Click()
For Each cel In Range("b4,b5,b6,c15,c17,c19,b23,b32,b38,b48,b53,b63,b74,h15,h16,h17")
If cel = "" Then MsgBox "Attention il manque des informations à renseignées!!": Exit Sub
Next
'créer un PDF
Dim Ledossier As String, Leclient As String, lerep As String
Ledossier = Range("B4").Value
lerep = Environ("userprofile") & "\DeskTop\" 'enregistre sur le bureau ' à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
lerep & "_" & Ledossier & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub