Salut slai,
Tu peux essayer avec la fonction Find d'Excel.
La macro ci-dessous fonctionne. Adapte la "Plage" à ton cas perso.
Quand je trouve, je fais un "Activate" de la cellule. Mets-y ce que tu veux.
Sub Cherche()
Dim Plage As Range
Dim Cellule As Range
Dim Posit As Long
On Error Resume Next
Set Plage = Sheets("Feuil1").Range(Cells(1, 1), Cells(12, 8))
For Each Cellule In Plage
If Cellule.Value <> "" Then
Posit = Application.WorksheetFunction.Find("*", Cellule.Value)
If Posit > 0 Then
Posit = Application.WorksheetFunction.Find("A", Cellule.Value)
End If
If Posit > 0 Then
Cellule.Activate
Exit Sub
End If
End If
Next
End Sub