With ListBox_Page1
.ColumnCount = 10
.ColumnWidths = "0;0;0;110;130;130;0;60;60;0"
.ListStyle = 0
.MultiSelect = 0
End With
With ListBox_Page2
.ColumnCount = 10
.ColumnWidths = "0;0;0;110;130;130;0;60;60;0"
.ListStyle = 0
.MultiSelect = 0
End With
MsgBox ListBox_Facture_Locataire.ListCount 'provisoire, pour vérifier que la listbox origine ne soit pas vide
Dim k As Integer, x As Integer
For k = 0 To ListBox_Page1.ListCount - 1
For x = 0 To 9
ListBox_Page2.List(k, x) = ListBox_Page1.List(k, x)
Next x
Next k