XL 2016 Macro Envoi Mail avec condition

Bonjour,
J'ai crée une macro qui envoi des mails avec les informations nécessaires dans les en-têtes d'expédition. Pas de soucis lorsqu'il n'y a qu'une valeur (ex .to = range("C4").value)
Cela se complique lorsqu'il y a un tableau remontant des valeurs 0. Pour le moment j'ai écrit :

myitem.cc = Range("D4").Value & ";" & Range("E4").Value & ";" & Range("C5").Value _
& ";" & Range("D5").Value & ";" & Range("E5").Value & ";" & Range("C6").Value & ";" & Range("D6").Value _
& ";" & Range("E6").Value

Mais lorsqu'une cellule est vide l'adresse remontée dans myitemcc est 0. Ex. jean@mail.fr;0;pierre@mail.fr

J'ai essayé de créer, sans succès une boucle pour ne pas prendre en compte ces cellules avec un 0 et concatener les valeurs pour les écrire dans le mail créé.
J'espère avoir été clair dans mes explications.
Merci pour votre aide
Henry.