Activer une cellule après avoir cherché ses coordonnées

Bonjour à tous,

J'effectue une recherche d'une cellule dans une seconde feuille en fonction de la valeur d'une cellule dans une première feuille,

Cette étape est réussi avec le code que je mets ci-dessous,

Mais maintenant je souhaiterai activer cette cellule et je ne sais pas comment faire

With ActiveSheet

 a = Sheets("Jalons").Range("A3:A1048576").Find(Sheets("Base Données").Range("B2").Value).Address

 End With

Cela fonctionne, j'ai vérifié avec une MsgBox et elle me donne bien les bonnes coordonnées

Au cas ou ca intéresse des gens j'ai trouvé seul la réponse avec ce code

With ActiveSheet
    Dim a As Integer
    a = Sheets("Jalons").Range("A3:A1048576").Find(Sheets("Base Données").Range("B2").Value).Row

Sheets("Jalons").Select
Cells(a, 1).Select

End With

Bonjour, et les deux lignes de la fin sur une seule.

Sheets("Jalons").Cells(a, 1).Select