XL 2016 vlookup et vba

Bonjour,

je me suis fait un petit outils de recherché en VBA par numéro de client mais je souhaite rajouter également la recherche par nom je n'arrive à effectuer les deux
merci d'avance.

Private Sub TextBox1_AfterUpdate()
On Error GoTo 1

If WorksheetFunction.CountIf(Sheets("Commandes").Range("A:A"), Me.TextBox1.Value) = 0 Then
MsgBox "ce numero de client n'existe pas ,veuillez resaisir un nouveau code", vbInformation + vbOKOnly, " client non trouvé"

End If
With Me

.TextBox2 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Commandes").Range("zone"), 3, 0)
.TextBox3 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Commandes").Range("zone"), 7, 0)
.TextBox4 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Commandes").Range("zone"), 6, 0)
.TextBox5 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Commandes").Range("zone"), 12, 0)
.TextBox6 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Commandes").Range("zone"), 14, 0)
.TextBox7 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Commandes").Range("zone"), 13, 0)

End With
1
End Sub