Ave,
Si je puis m'immiscer…
Si, seule, la cellule IV1 est renseignée, l'instruction ''MsgBox Range(''IV1'').End(xlToLeft).Column' va renvoyer 1 au lieu de renvoyer 256 et elle renverra aussi 1 si la ligne 1 est totalement vide !
Ces 2 réponses (cas évidemment limites) incitent à employer une autre intruction comme :
MsgBox Rows(1).Find(''*'', , 1, , 2, 2).Column
Evidemment cette instruction renverra ''logiquement'' une erreur (à traiter) si la ligne 1 est totalement vide
On pourrait écrire (une parmi...)
If [CountA(1:1)] = 0 Then MsgBox 0 Else MsgBox Rows(1).Find(''*'', , 1, , 2, 2).Column
AV [aaa]