Bonjour à tous,
J'ai en partie résolu mon problème avec ce code:
lig = Application.Match(CbRecherche, Feuil5.[a:a], 0) 'renvoye N°ligne
For col = 1 To 21 'on rempli les combox
CbComm1.Value = Feuil5.Cells(lig, 2): TextBox156.Value = Feuil5.Cells(lig, 3): _
mais je pense qu'il y a beaucoup plus simple.
Merci d'avoir pris le temps de jeter un coup d'oeil et bonne journée