J'ai trouvé ça pour l'instant pour ceux que ça intéresse mais cela permet que d'activer la cellule où il y a écrit toto
Sub toto()
Dim i As Integer
Dim j As Integer
Cells(1, 1).Select
For i = 0 To 100
For j = 0 To 100
If ActiveCell.Text = "toto" Then
Exit For
Exit For
Else: Cells(1, 1).Offset(i, j).Select
End If
Next j
Next i
End Sub