VBA Excel : .Find qui fonctionne dans un cas et pas l'autre

Bonjour,
Dans Feuille2, j'ai une zone A1:C500 avec une quinzaine de cellules qui contiennent le nom de différentes concessions. Je cherche à localiser leurs adresses. Dans ce bout de code:

Sub Test_4_Selection_Find()
Dim c As Range
    Sheets("Feuil2").Select
    Dim firstAddress As String
    Texte = "Consessions"
    Range("A1:C500").Select
    Set c = Selection.Find(Texte)
    MsgBox c.Address
    Stop
    With Worksheets(2).Range("A1:C500")
        Set c = .Find(Texte)
        MsgBox c
        Stop
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                'c.Value = Replace(c.Value, Texte, "xyz")
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With
    Stop
End Sub

1) le premier Selection.Find fonctionne et me renvoie bien l'adresse de la cellule
2) le second .Find me renvoie Nothing  et je ne comprends pas pourquoi ???
Je ne trouve pas mon erreur ...

Windows / Chrome 124.0.0.0