Recherche d'un nom à partir des deux premières lettres

VBA
4 
Sub Lettres()

Dim Lettres As String, derlig As Integer
Lettres = InputBox("Entrez les 3 premières lettres du nom recherché")'On peut n'en demander qu'une ou deux
Lettres = UCase(Lettres)'**_Transformation en majuscule parce que la liste de la colonne B est en majuscule_**
'
derlig = Range("B" & Rows.Count).End(xlUp).Row
For x = 2 To derlig
If Left(Cells(x, 2), 3) = Lettres Then' **_Le 3 correspond au nombre de lettres par lesquelles on recherche_**
Cells(x, 1).Select
End If
Next
End Sub

Voila, les cracks de VBA vont rigoler mais c’est ce que j’ai trouvé.