Boucle de recherche en VBA

Bonjour,

Je cherche a faire une recherche vba ou lorsque mon fichier trouve le chiffre 1, il s'arrête et se décale à droite dans ma feuille base de données.
Problème, je ne sais absolument pas comment faire.

Si quelqu'un pourrait m'aider

Merci,

Bonjour,

Je dirais :

Sub CHERCHE()
Worksheets("Base de données").Columns(2).Find("1", Worksheets("Base de données").[B5], xlValues, xlWhole).Offset(0, 1).Select
End Sub

Cdlt,

Bonjour,

C'est exactement cela, je vous remercie je ne sais pas comment je ferais sans vous ;)