Repérer la position d'une cellule contenant une information

Bonjour à toutes et à tous.

J'aimerais juste savoir comment un excelien confirmé ferait pour repérer une cellule de part son contenu pour ensuite trouver son numéro de ligne et modifier des informations dans cette ligne.

Personnellement j'utilise des codes du genre :

Cells(200, 200) = Sheets(changement_page).Range("D:D").Find(UserForm1.TextBox5.Value).Address
        a = Sheets(changement_page).Cells(200, 200).Value
        h = Right(a, 1)
        With Sheets(changement_page)
            .Rows(h).Insert
            .Activate

Je trouve ça un peu lourd et le fait de passer par la cellule (200,200) ne me plait pas vraiment.

Auriez vous une solution optimisée ?

Merci bien.

Cordialement

Alexis AZ

h=Sheets(changement_page).Range("D:D").Find(UserForm1.TextBox5.Value).row
Sheets(changement_page).Rows(h).Insert

Ou alors

Sheets(changement_page).Rows(Sheets(changement_page).Range("D:D").Find(UserForm1.TextBox5.Value).row).Insert

Ahaha,

C'est parfait merci beaucoup de votre aide !