Bug affichage userform

Recherche.Show 0

ReDim tablo(1 To data.Count)

Case 6: Set plage = Feuil6.Range("p2:p" & Feuil6.Range("p65536").End(xlUp).Row)
            Case 7: Set plage = Feuil6.Range("r2:r" & Feuil6.Range("r65536").End(xlUp).Row)
            Case 8: Set plage = Feuil6.Range("j2:j" & Feuil6.Range("j65536").End(xlUp).Row)
            Case 9: Set plage = Feuil6.Range("o2:o" & Feuil6.Range("o65536").End(xlUp).Row)

Private Sub UserForm_Initialize()
  Dim c As Range
  Dim data As Collection
  Dim i As Byte, j As Byte, k As Byte
  Dim tablo()
  Dim item
  Dim plage As Range


  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual


  With Sheets("Listes")  ' Feuil2 '"listes"
    'initialisation combo groupement et code
    ComboBox1.List = .Range("b2:b" & .Range("b65536").End(xlUp).Row).Value
    ComboBox2.List = .Range("a2:a" & .Range("a65536").End(xlUp).Row).Value
  End With


  Range("a1").AutoFilter
  Range("a1").AutoFilter


  'initialisation combobox4 (DUA) et combobox 10 sans doublons et triée
  With Feuil6
    For k = 4 To 11
      Select Case k
      Case 4: Set plage = .Range("k2:k" & .Range("k65536").End(xlUp).Row)
      Case 10: Set plage = .Range("n2:n" & .Range("n65536").End(xlUp).Row)
      Case 11: Set plage = .Range("e2:e" & .Range("e65536").End(xlUp).Row)
      Case Else: Set plage = Nothing
      End Select
      If Not plage Is Nothing Then
        Set data = New Collection
        For Each c In plage
          If c <> "" Then
            On Error Resume Next
            data.Add c, CStr(c)
            On Error GoTo 0
          End If
        Next c


        For Each item In data
          Controls("combobox" & k).AddItem item
        Next item


        With Controls("combobox" & k)
          For i = 0 To .ListCount - 1
            For j = 0 To .ListCount - 1
              If k = 4 Then
                If Val(.List(i)) < Val(.List(j)) Then
                  item = Val(.List(i))
                  .List(i) = .List(j)
                  .List(j) = item
                End If
              End If
              If k > 9 Then
                If .List(i) < .List(j) Then
                  item = .List(i)
                  .List(i) = .List(j)
                  .List(j) = item
                End If
              End If
            Next j
          Next i
        End With
      End If
    Next k
  End With


  'initialise combobox6, 7 et 8 et 9 sans doublons et triée
  For k = 6 To 9
    'If k <> 9 Then
    Set data = Nothing
    Set data = New Collection
    Select Case k
    Case 6: Set plage = Feuil6.Range("p2:p" & Feuil6.Range("p65536").End(xlUp).Row)
    Case 7: Set plage = Feuil6.Range("r2:r" & Feuil6.Range("r65536").End(xlUp).Row)
    Case 8: Set plage = Feuil6.Range("j2:j" & Feuil6.Range("j65536").End(xlUp).Row)
    Case 9: Set plage = Feuil6.Range("o2:o" & Feuil6.Range("o65536").End(xlUp).Row)
    End Select


    For Each c In plage
      If c <> "" Then
        On Error Resume Next
        If k = 8 Then
          data.Add c, CStr(c)
        Else
          data.Add Year(CDate(c)), CStr(Year(CDate(c)))
        End If
        On Error GoTo 0
      End If
    Next c
    
    ' *** Evite un BUG si aucune date dans les plages
    If data.Count > 0 Then
      ' Redimensionne le tablo selon la quantité de data
      ReDim tablo(1 To data.Count)
      
      For i = 1 To data.Count
        tablo(i) = data(i)
      Next i


      For i = 1 To UBound(tablo)
        For j = 1 To UBound(tablo)
          If Val(tablo(i)) < Val(tablo(j)) Then
            item = Val(tablo(i))
            tablo(i) = tablo(j)
            tablo(j) = item
          End If
        Next j
      Next i


      For i = 1 To UBound(tablo)
        Controls("combobox" & k).AddItem tablo(i)
      Next i
    End If
    Erase tablo
    ' End If
  Next k
  'initialisation combobox5 (sort)
  ComboBox5.List = Array("C", "D", "T")


  'année précise pour dua et éliminé par défaut
  OptionButton4 = True
  OptionButton6 = True
  OptionButton8 = True


  'alimentation combobox ai
End Sub