Private Sub ComboBox1_Change()
'REMPLISSAGE ====================================================
Dim x&
With Sheets("BDD") 'pour cette feuille, il faut les .
If ComboBox1.ListIndex = -1 Then Exit Sub
x = ComboBox1.List(ComboBox1.ListIndex, 1)
Label1 = .Cells(x, 2) 'ARD
Label2 = .Cells(x, 3) 'BGH
Label3 = .Cells(x, 4) 'CDV
Label4 = .Cells(x, 5) 'ENVO
End With
End Sub