With Sheets("base")
For i = 2 To 3
If control = "ComboBox" Then
data1 = colonneLCenAX(i) ' fonction pour transformer un numero de colonne en alpha
nomplage = data1 & "2:" & data1 & .Range(data1 & "65536").End(xlUp).Row
UserForm1.Controls("ComboBox" & i).RowSource = "base" & "!" & nomplage
End If
Next i
End With