Private Sub ComboBoxfiche1_Change()
Dim cel As Range, Ligne As Integer
With ThisWorkbook.Sheets("TABLEAU")
Set cel = .Columns("B").Find(Me.ComboBoxfiche1.Value, .Range("b3"), xlValues)
If Not cel Is Nothing Then
Ligne = cel.Row
Me.TextBoxFINCH.Value = .Cells(Ligne, "W") 'colone W'
Me.TextBoxFINST.Value = .Cells(Ligne, "X") 'colone S'
Me.TextBoxFINCCS.Value = .Cells(Ligne, "Y") 'colone Y'
Me.TextBoxFINDAT.Value = .Cells(Ligne, "Z") 'colone Z'
Me.TextBoxFINHEU.Value = .Cells(Ligne, "AA") 'colone AA'
End If
End With
End Sub