Détermination du numéro de colonne

Sub Debut()
Range("A1").Select
Do While ActiveCell <> ""
If ActiveCell.Value <> "0" Then
MsgBox ("La colonne : " & ActiveCell.Column & " contient :" &
ActiveCell.Value)
Exit Do
Else
ActiveCell.Offset(0, 1).Select
End If
Loop
End Sub

Je sais qu'il existe plus simple, mais bon, c'est mieux que rien.
"falafala" <k_ci0@hotmail.com> a écrit dans le message de
news:039401c54b0d$14f696d0$a601280a@phx.gbl...
Bonjour

Sur une ligne j'ai les éléments suivants:

0 0 0 15 0 0 0 0

J'aimerais un algorithme qui me permette de déterminer le
numéro de la colonne de l'élément non nul. Ici, l'élément
non nul est 15, il faudrait retourner 4.

Je vous remercie par avance

Matricielle (validation par ctrl+maj+entrée) :
=EQUIV(VRAI;A1:F1<>0;0)

par vba :
MsgBox Evaluate("Match(True," & Selection.Address & " <> 0, 0)")

AV

Merci beaucoup , ca marche très bien

-----Message d'origine-----
Matricielle (validation par ctrl+maj+entrée) :
=EQUIV(VRAI;A1:F1<>0;0)

par vba :
MsgBox Evaluate("Match(True," & Selection.Address & " <>
0, 0)")

AV


.