ColonneDonnées = (ComboBox1.ListIndex + 1 * 6) - 4
End If
For Each cell In .Range(.Cells(2, ColonneDonnées ), .Cells(.Cells(10000, ColonneDonnées ).End(xlUp).Row, ColonneDonnées))
Sub Macro1()
Range("J1").Select
Selection.ClearContents
ComboBox1 = ""
ComboBox2 = ""
End Sub