erreur sur code

[COLOR="DarkSlateGray"][B]Private Sub UserForm_Initialize()
Dim plage1 As Range
Dim Tab1() As String
Dim plage2 As Range
Dim Tab2() As String
Dim Cell As Range
Dim i&
   With Sheets("base")
      Set plage1 = .Range("d1:d" & .Range("d65536").End(xlUp).Row)
   End With
   ReDim Tab1(1 To plage1.Count)
   For Each Cell In plage1
      i = i + 1
      Tab1(i) = Cell
   Next
   Beneficaire.List = Tab1
   With Sheets("base")
      Set plage2 = .Range("f1:f" & .Range("f65536").End(xlUp).Row)
   End With
   ReDim Tab2(1 To plage2.Count)
   [COLOR="Red"]i = 0[/COLOR]
   For Each Cell In plage2
      i = i + 1
      Tab2(i) = Cell
   Next
   Reglement.List = Tab2
End Sub[/B][/COLOR]

[COLOR="DarkSlateGray"][B]Private Sub UserForm_Initialize()
   With Sheets("base")
      Beneficaire.List = .Range("d1:d" & .Range("d65536").End(xlUp).Row).Value
      Reglement.List = .Range("f1:f" & .Range("f65536").End(xlUp).Row).Value
   End With
End Sub[/B][/COLOR]