Je débute en programmation et j'aprends avec le livre "Excel et VBA" mais je tombe sur un pb qui doit être simple mais je ne trouve pas la subtilité ???

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Sheets("teintes").Select
Dim colonne As Integer
colonne = 1
MsgBox " essai  :" & txtproduit.Value
Cells(3, colonne).Select
While ActiveCell.Value <> txtproduit.Value
colonne = colonne + 1
Cells(3, colonne).Select
Wend
Cette boucle tourne sans fin pourtant j'ai midifié les valeurs pour faciliter la recherche
txtproduit = 1 je vérifie juste avant avec une msgbox RAS
Dans mon tableau excel j'ai placé en cells (3,33) un 1 volontairement
enplus je pense voir le déplacement du select au fur et à mesure de l'incrémentation

Pouvez-vous me dire vers quoi je dois chercher

merci