Et oui, je pensais avoir trouvé mais cela ne marche pas. Les mêmes chiffres s'affichent partout.
Je laisse un peu de côté, je verrais ça cette ap.
Si qqu un a une solution merci d'avance car je n'ai plus l'habitude du VBA
J'essaye d’intégrer une boucle pour afficher les chiffres
Avec ce code, LES CHIFFRES s'affichent enfin reste à trouver comment intégrer le format
Sub EcritNoDepart()
For Each c In [départ]
If c <> "" Then ecritShape "fr-" & c, c.Offset(, 2) & Chr(10) & c.Offset(, 1)
Next c