Bonsoir,
Comme je viens de remarquer (à l'évaluation que tu as mise) que la réponse à ta question ne te satisfaisait pas, voici une autre proposition.
Sub test()
mon_tableau = Application.Transpose(Range("D4:D6"))
valeur_a_rechercher = 5
MsgBox array_pos(mon_tableau, valeur_a_rechercher)
End Sub
Voici comment rechercher la position d'une valeur dans un tableau. Je dois avouer que tes "poils" tes "?" ton "4" et ton "2" m'ont laissé perplexe. Si ce n'est pas la réponse à ta question, peux-tu alors reformuler ta question ?
merci.