Oups, décidemment, c'est pas mon jour!
Déjà que je réponds de travers à un autre fil, là je copie à moitié le code!
Je vais finir par te devoir ... une bière!
En fait, tes cellules contiennent 24 espaces.
Il faut remplacer
If Range("A1").Cells(i, 1) = " " ...
par
If Range("A1").Cells(i, 1) = " " ... (vérifie bien qu'il y a 24 espaces)
Cette fois, je ne vais pas dire "Cette fois, ça marche!". Je vais attendre d'avoir tué l'ours avant de vendre sa peau!
Sinon, tes données comportent toutes 24 caractères.
Ainsi, "JUPILER" est en fait "JUPILER " (chaque chaîne de caractères est complétée par des espaces pour arriver à 24 caractères au total). Tes données sont sans doute importées d'une source qui ne connait que des chaînes de 24 caractères!
J'espère que cette fois, c'est la der
Laurent.