Trouver le numero de ligne

Bonjour le forum,

ci joint un fichier tout simple dans lequel je cherche via une macro à recupérer le numero de la "premiere" ligne qui contient la lettre D ou choix et stocker ce numero dans une variable.

Meme chose pour trouver la derniere ligne (je pourrais peut etre aussi utiliser une boucle "while" une fois le la premiere ligne trouvée...)

Merci de votre aide

Dim SearchRange As Range

Dim FindRow As Range

Set SearchRange = Range("A1", Range("A65536").End(xlUp))

Set FindRow = SearchRange.Find("D", LookIn:=xlValues, lookat:=xlWhole)

MsgBox FindRow.Row

Problème résolu