With Me.ListBox1 'avec Me.listbox1 évite de répéter cette partie de code
For L = 1 To UBound(Scénario, 1) 'pour chaque ligne du tableau
.AddItem Format(Scénario(L, 1), "##0.0000 %") 'ici on rempli la listBox via sa la propriété Additem
.Column(1, .ListCount - 1) = Format(Scénario(L, 2), "##0.0000 %") 'et Column
.Column(2, .ListCount - 1) = Format(Scénario(L, 3), "##0.0000 %")
.Column(3, .ListCount - 1) = Format(Scénario(L, 4), "##0.0000 %")
.Column(4, .ListCount - 1) = Format(Scénario(L, 5), "##0.0000 %")
Next
End With