Private Sub ComboClientBox_Change()
Dim i As Byte
For i = 2 To Sheets('clients').Range('A65536').End(xlUp).Row
If ComboClientBox.Value = Sheets('clients').Cells(i, 1).Value Then
ImpEnveloppes.Label2.Caption = Sheets('clients').Cells(i, 2).Value
ImpEnveloppes.Label4.Caption = Sheets('clients').Cells(i, 3).Value
ImpEnveloppes.Label6.Caption = Sheets('clients').Cells(i, 4).Value
ImpEnveloppes.Label8.Caption = Sheets('clients').Cells(i, 5).Value
End If
Next i
End Sub