Sub AfficherClient(NumClient As Integer)
Dim idxLigne As Variant ' Variant car pourra contenir une erreur #NA() si la recherche échoue
With Sheets("BASE").Range("A4").CurrentRegion ' Tout le tableau
'utilisation vba de la fonction de feuille de calcul EQUIV pour trouver le client
'par son numéro dans la colonne 1 du tableau
idxLigne = Application.Match(NumClient, .Columns(1), 0)
' Si le client est trouvé, transposer simplement ses informations dans la zone idoine
' de la feuille CODE
If Not IsError(idxLigne) Then
Sheets("CODE").Range("D24:D34").Value = Application.Transpose(.Cells(idxLigne, 2).Resize(, 11).Value)
Else
' ici on peut faire se qu'on veut si le client n'est pas trouvé dans la base
' msgbox ou avertissement en cellule D24 ou autre
End If
End With
End Sub