Boucle sur combobox

Private Sub UserForm_initialize()
Dim p As Range, MaPlage As Range
Dim x As New Collection
For i = 1 To 7
A = 4 * i
Controls("ComboBox" & A).Clear 
Set MaPlage = Sheets("Analyse").Range("h5:h" & Sheets("Analyse").Range("h65536").End(xlUp).Row)
For Each p In MaPlage
    On Error Resume Next
    x.Add p, CStr(p)
    If Err = 0 Then UserForm3.Controls("ComboBox" & A).AddItem (CStr(p)) 
    On Error GoTo 0
Next p
Next i
End Sub

Private Sub UserForm_initialize()
Dim p As Range, MaPlage As Range
Dim x As New Collection
For i = 1 To 7
A = 4 * i
Controls("ComboBox" & A).Clear
Set x = Nothing
Set MaPlage = Sheets("Analyse").Range("h5:h" & Sheets("Analyse").Range("h65536").End(xlUp).Row)
For Each p In MaPlage
    On Error Resume Next
    x.Add p, CStr(p)
    If Err = 0 Then UserForm3.Controls("ComboBox" & A).AddItem (CStr(p))
    On Error GoTo 0
Next p
Next i
End Sub

Private Sub UserForm_initialize()
Dim p As Range, MaPlage As Range
Dim x As New Collection, y As Integer
Set MaPlage = Sheets("Analyse").Range("h5:h" & Sheets("Analyse").Range("h65536").End(xlUp).Row)
For Each p In MaPlage
    On Error Resume Next
    x.Add p, CStr(p)
    On Error GoTo 0
Next p

For i = 1 To 7
    A = 4 * i
    Controls("ComboBox" & A).Clear
    For y = 1 To x.Count
        UserForm3.Controls("ComboBox" & A).AddItem x.Item(y)
    Next y
Next i
End Sub