Re : Erreur d'exécution 6 dépassement de capacité
Personnellement en commentant les lignes ci-dessous j'arrive à afficher le userform avec les données donc il faut chercher là dedans
Listebox2 s'alimente je ne comprend plus rien
Me.ListBox1.List = bd.Value
Ainsi que le bloc suivant
With Sheets("BD")
' For i = 2 To .[A65000].End(xlUp).Row
' datduJour = Date
' If .Cells(i, 10) < Format(datduJour, "dd/mm/yyyy") Then 'Cells(1, 16)
' Me.ListBox4.AddItem
' Me.ListBox4.List(K, 0) = .Cells(i, 4)
' Me.ListBox4.List(K, 1) = .Cells(i, 5)
' Me.ListBox4.List(K, 2) = .Cells(i, 6)
' Me.ListBox4.List(K, 3) = .Cells(i, 7)
' Me.ListBox4.List(K, 4) = .Cells(i, 8)
' Me.ListBox4.List(K, 5) = .Cells(i, 9)
' Me.ListBox4.List(K, 6) = .Cells(i, 10)
' Me.ListBox4.List(K, 7) = .Cells(i, 11)
' Me.ListBox4.List(K, 9) = .Cells(i, 13)
' K = K + 1
' End If
' Next i
' End With