Private Sub CbCli_Change()
'Affichage des information selon client selection dans le combobox
Dim Isociete
With Sheets("Import")
'compter nb lignes
nb_lignes = .Cells(1, 1).End(xlDown).Row
For i = 2 To nb_lignes
Me.Lsociete.Text = .Cells(Me.CbCli.Column(1, CbCli.ListIndex), 5).Value
Me.LSiren.Text = .Cells(Me.CbCli.Column(1, CbCli.ListIndex), 11).Value
Me.Tactivite = .Cells(Me.CbCli.Column(1, CbCli.ListIndex), 4).Value
Me.Linterlocuteur.Text = .Cells(Me.CbCli.Column(1, CbCli.ListIndex), 6).Value
Me.Lcompte1.Text = .Cells(Me.CbCli.Column(1, CbCli.ListIndex), 9)
Me.Lcompte2.Text = .Cells(Me.CbCli.Column(1, CbCli.ListIndex), 10)
Me.LTel.Text = .Cells(Me.CbCli.Column(1, CbCli.ListIndex), 7)
Me.Ltel2.Text = .Cells(Me.CbCli.Column(1, CbCli.ListIndex), 8)
Me.LDEC.Text = .Cells(Me.CbCli.Column(1, CbCli.ListIndex), 2)
Me.LSogetrade.Text = .Cells(Me.CbCli.Column(1, CbCli.ListIndex), 3)
Me.Lcom.Text = .Cells(Me.CbCli.Column(1, CbCli.ListIndex), 12)
Next i
End With
End Sub