Bonjour, j'essaye de faire une macro afin de trouver une valeur dans une feuille et d'extraire les coordonnées de la cellule

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
With Feuil1
nomcherche = TextBox1.Value
On Error Resume Next
Set result = Cells.Find(What:=nomcherche, LookIn:=xlPart)
On Error GoTo 0
If result Is Nothing Then
MsgBox "Non trouvé"
Else
Unload Me
ActiveWindow.ScrollRow = result.Row
ActiveWindow.ScrollColumn = result.Column
End If
End With
End Sub
Merci de votre aide