Sub EnvoiMail()
Dim A$, Sep$
Sep = " ; " 'A ADAPTER !!! ou pas...
If Sheets("Feuil1").Range("C52") = "OUI" Then
If Range("G46") <> "" Then A = A & Range("G46") & Sep
If Range("G47") <> "" Then A = A & Range("G47") & Sep
If Range("G48") <> "" Then A = A & Range("G48") & Sep
Workbooks("Bon de commande prestation annexe modif.xls").SendMail Recipients:=A, _
Subject:="Test envoi classeur", _
ReturnReceipt:=True
Else
MsgBox "Formulaire incomplet. Envoi annulé"
End If
End Sub