Initialiser listbox automatiquement

Private Sub CmdPlus_Click()
Txtdate = Format(DateAdd("m", 1, Txtdate.Value), " mmmm yyyy")
End Sub
Private Sub CmdMoins_Click()
Txtdate = Format(DateAdd("m", -1, Txtdate.Value), " mmmm yyyy")
End Sub

'.../...
ReDim Colonne(0 To [B][SIZE=3]14[/SIZE][/B])
ReDim largeur(0 To [B][SIZE=3]14[/SIZE][/B])
ReDim position(0 To [B][SIZE=3]14[/SIZE][/B])
'.../..

'.../...
[B][SIZE=3]Colonne(i) = "p" '14
largeur(i) = 50
position(i) = 0
i = i + 1[/SIZE][/B]
Call Initlistview("Echéances", 2, 1, Colonne(), largeur(), position())
'.../...

Private Sub Txtdate_Change()
Dim i As Long
Dim date1 As String
Dim date2 As String

'If flag = True Then Exit Sub
If Txtdate <> "" Then
With Me.Controls("ListView1")
    .CheckBoxes = False ' affichage des checkboxes
    .ListItems.Clear ' suppression des données
End With
mois = Month(Txtdate.Value)
With Sheets("Echéances")
For Each cell In .Range("q3:ac" & .Range("a65536").End(xlUp).Row)
    'date1 = Replace(CStr(Format(Sheets("Echéances").Range("c" & i), "mmmm/yyyy")), "/", "")
    
    If LCase(cell) = "x" Then
        If cell.Column = 17 Or cell.Column = (17 + mois) Then
        Call ajouteruneligne("Echéances", cell.Row, 1, Colonne())
        End If
    End If
Next cell
End With
End If
End Sub

Private Sub UserForm_Initialize()
Dim DerLigne As Integer
flag = True
remplirlistv
'Txtdate = Range("A1")
Txtdate = Format(Date, "mmmm/yyyy")

flag = False
End Sub
Private Sub remplirlistv()


ReDim Colonne(0 To 14)
ReDim largeur(0 To 14)
ReDim position(0 To 14)
Dim i As Long
i = 0
'**************zone à modiifer
' correspondance entre les Colonne(i)s de la base de données et la listview
Colonne(i) = "c" 'Colonne(i) de la listview : 0
largeur(i) = 50 ' largeur de la Colonne(i)
position(i) = 0 ' 0 gauche 1 droite 2 centré
i = i + 1
Colonne(i) = "p" '1
largeur(i) = 80
position(i) = 2
i = i + 1
Colonne(i) = "d" '1
largeur(i) = 80
position(i) = 0
i = i + 1
Colonne(i) = "e" '2
largeur(i) = 80 '
position(i) = 0 '
i = i + 1
Colonne(i) = "f" '3
largeur(i) = 80 '
position(i) = 0 '
i = i + 1
Colonne(i) = "g" '4
largeur(i) = 50
position(i) = 0
i = i + 1
Colonne(i) = "h" '5
largeur(i) = 50
position(i) = 0
i = i + 1
Colonne(i) = "i" '6
largeur(i) = 50
position(i) = 0
i = i + 1
Colonne(i) = "j" '7
largeur(i) = 50
position(i) = 0
i = i + 1
Colonne(i) = "k" '8
largeur(i) = 80
position(i) = 0
i = i + 1
Colonne(i) = "l" '9
largeur(i) = 80 '
position(i) = 0 '
i = i + 1
Colonne(i) = "m" '10
largeur(i) = 80 '
position(i) = 0 '
i = i + 1
Colonne(i) = "g" '11
largeur(i) = 50
position(i) = 0
i = i + 1
Colonne(i) = "n" '12
largeur(i) = 50
position(i) = 0
i = i + 1
Colonne(i) = "o" '13
largeur(i) = 50
position(i) = 0
i = i + 1
'********************* fin paramétrage
Call Initlistview("Echéances", 2, 1, Colonne(), largeur(), position())


End Sub