Sub vide()
Dim test As Boolean
With Sheets("Devis")
If .Range("b2") = "" Then MsgBox "prénom incomplet": test = True
If .Range("b3") = "" Then MsgBox "adresse incomplet": test = True
If .Range("b7") = "" Then MsgBox "Numéro de téléphone inclomplet": test = True
End With
If test = False Then Call comptoir
End Sub