Private Sub ComboBox2_Change()
Dim Cel As Range
Dim Nom As String
Dim I As Long
Dim J As Byte
If Me.ComboBox2.ListIndex = -1 Then Exit Sub
Nom = Me.ComboBox1 & Me.ComboBox2
With Ws
For I = 2 To NbLignes
If .Cells(I, 2).Text & .Cells(I, 3).Text = Nom Then
'
' Ligne à rajouter
'
Range("param_no_ligne") = I - 1
'
' Fin de ligne à rajouter
'
For J = 1 To 7
Me.Controls("fcm0" & J) = .Cells(I, "B").Offset(0, J - 1)
Next J
Exit For
End If
Next I
End With
End Sub