Noms de feuilles non reconnus

Bonjour le Forum,

je rencontre un "petit" problème.

En utilisant le code ci-dessous dans un classeur, pour comparer un nom saisi dans l'InputBox à un nom saisi en cellule "D2" d'une feuille nommée "Récap", un message m'informe que "la fiche n'existe pas" si le nom saisi dans l'InputBox" est par exemple "AV" alors que cette fiche a été créée (Ce même nom est saisi dans la cellule D2 de la feuille "Récap").
Si le nom de la fiche est "5", pas de problème !
Ainsi, il semble que ce code ne reconnaisse pas les lettres pour nommer les feuilles; par contre, il semble accepter les "nombres" sans problème !

Voici le code :

Private Sub CommandButton2_Click()
Dim maFeuil$, NOK As Boolean, F As Worksheet, Rep, Secur$
Application.DisplayAlerts = False
NOK = True: Secur = Sheets("Récap").Cells(2, 4)
Do
maFeuil = InputBox(Prompt:="Taper le nom de la Fiche à supprimer. ")
If maFeuil = "" Then Exit Do
For Each F In Worksheets
If F.Name = maFeuil And maFeuil = Secur Then
'Avertissement suplémentaire ********************************
Rep = MsgBox("Vous allez supprimer la fiche " & maFeuil _
& vbLf & "Confirmez-vous la suppression ?", _
vbYesNo + vbExclamation + vbDefaultButton1, "Avertissement")
If Rep <> vbYes Then Exit Sub
'Fin de l'avertissement supplémentaire **********************
F.Activate 'F.Delete 'Pour supprimer la feuille
NOK = False
Exit For
ElseIf F.Name = maFeuil And maFeuil <> Secur Then
MsgBox "Vous devez saisir le bon nom de fiche: " & Secur
NOK = False
End If
Next F
If NOK Then MsgBox "Cette Fiche n'existe pas !"
Loop While NOK
Application.DisplayAlerts = True
End Sub

Pouvez-vous me dire quelle est la cause de ce problème et m'indiquer comment y remèdier ?

Merci d'avance. Bon après-midi.
Nonno 94.