Private Sub LD_Trésorerie_mois_Change()
i = 0
Me.LB_Trésorerie_mois.Clear
f = LD_Trésorerie_mois.Value
For Each c In Range(Sheets(f).[D2], Sheets(f).[D65000].End(xlUp))
With Me.LB_Trésorerie_mois
.ColumnCount = 3
.AddItem
.List(i, 0) = c.Offset(0, -2).Value
.List(i, 1) = c.Offset(0, -1).Value
.List(i, 2) = c.Value
i = i + 1
End With
Next c
End Sub