XL 2013 [Résolu] Inserer un retour à la ligne après 4 adresses emails

Lone-wolf

XLDnaute Barbatruc
Bonjour à tous :)

Comme énoncé dans le titre, je cherche à inserer un retour à la ligne toutes les 4 adresses mails. Au départ, j'ai fait comme ceci en pensant avoir trouvé la solution, mais je me suis planté.

deb = InStr(1, cel, ";")
If deb = 1 Then cel = Left(cel, deb) & vbLf & Right(cel, Len(cel) - deb)
cel.RowHeight = 13

En effet, comme le nombre de caractères peut varié, la solution est erronée. Et je ne sais pas comment coder, pour que Excel insère le retour à la ligne.

Merci d'avance pour votre soutien.
 

Pièces jointes

  • Classeur-test.xlsm
    13.4 KB · Affichages: 36

Discussions similaires