resolu
j'ai modifier ici en rouge
Private Sub UserForm_Initialize()
Dim i As Integer
ListBox1.ColumnWidths = "120;80;100;160"
If ControleEntretiens() Then
For i = 0 To UBound(TB, 2)
TB(2, i) = Format(TB(2, i), "mm/yyyy")
ListBox1.AddItem "N° : " & TB(0, i)
ListBox1.List(i, 1) = TB(1, i)
ListBox1.List(i, 2) = "ligne " & TB(3, i)
ListBox1.List(i, 3) = "Date limite : " & TB(2, i)
Next i
Else
End If
End Sub