Dim EnvoiPossible as Boolean
EnvoiPossible = true 'Par défaut, on peut envoyer
'On teste s'il y a une valeur
If Sheets("Feuil1").Range("A1").value = "" then
'S'il n'y en a pas, on refuse l'envoi
EnvoiPossible = False
End If
....
....
If EnvoiPossible Then
'On envoie le mail ici
End if