Private Sub CommandButton1_Click()
If IsNumeric(Sheets("recherche").Range("A1").Value) Then
Sheets("recherche").Range("A1").Value = Sheets("recherche").Range("A1").Value + 1
Else: With Sheets("recherche").Range("F1").Value = WorksheetFunction.VLookup
(.Range("A1").Value, Sheets("Fichier client").Range("B
"), 3, False)
End With
End If
End Sub