Recherche sur une partie de nom

Bonjour,
Dans la macro ci-après, (que j'ai récupérée et modifiée ????? pour moi) je voudrais que la recherche se fasse sur 3 ou 4 lettres du debut du nom recherché.
Cette macro ne trouve que si le résultat est sur un nom complet dans la feuille.
----------------------la macro
Sub rechnom()

Dim Message, Title, Default, MyValue
' Définit le message.

Msg = "CONTINUER ?" ' Définit le message.
Title = "RE-INSCRIPTION D'ADHERENT" ' Définit le titre.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons.
Reponse = MsgBox(Msg, Style, Title)
Default = "Nom de la personne"
If Reponse = vbYes Then
Msg = "RECHERCHE QUI ?" ' Définit le message.
MyValue = InputBox(Msg, Title, Default)

MsgBox "ON RECHERCHE " & Chr(10) & Chr(10) & UCase(MyValue)

'''''''''''''''''''''''''
If Not x Is Nothing Then
a = x.Address(0, 0)
l = x.Row
c = x.Column
Cells(l, c).Select
End If
'MsgBox "a " & a '& "- b " & b & " - c-" & c
'Cells(l, c).Select
Else
Exit Sub
End If

End Sub
----------------------------fin macro





Merci pour votre aide
cordialement

(Posté via Carrefour Multimedia)