Sélectionner une cellule pour terminer une macro

Bonsoir le forum,

Voici mon petit souci, j'ai une macro (ci-dessous) :

Private Sub Label2_Click()
Range("a:a").Select
 Application.CommandBars.ExecuteMso "FindDialogExcel"
End Sub

quand je clique sur le label cela me sélectionne la colonne A et ouvre "Rechercher et Remplacer" ce que j'aimerais c'est

qu'une fois la recherche terminée quand je referme "Rechercher et Remplacer" le "curseur" aille sur la B3.

D'avance merci pour votre aide

bonsoir,

rajoute cette instruction

Private Sub Label2_Click()
Range("a:a").Select
 Application.CommandBars.ExecuteMso "FindDialogExcel"
range("B3").select
End Sub

j'aurais dû tester avant. cela ne fonctionne pas !

Bonsoir h2so4,

merci pour ta réponse, mais je l'avais déjà essayée mais cela ne fonctionnait pas (j'aurais dû le préciser dans ma demande )

Bonjour,

Pourquoi ne pas faire recherche et remplacer via ta macro

avec la fonction Application.WorksheetFunction.Replace