XL 2010 diminuer colonne listview

bonsoir le forum
voila mon petit soucis j'ai un listview ou je vois pas tout mes colonnes voila le code que j'ai j'aimerais si vous pouvais me dire comment et ou pour changé ses colonnes
avec tout mes remerciment
Private Sub UserForm_Initialize()
Dim i As Integer, j As Integer
With ListView1
With .ColumnHeaders ' Definir less entetes de colonnes
.Clear
For i = 1 To 29 ' 5 colonne
.Add , , Cells(3, i), 45 ' Creation des titres en fonction de la ligne 19
Next i
End With
' Ensuite on defini les ligne (avec en colonne 1 l'index)
For i = 1 To 11
.ListItems.Add , , Range("A" & i + 3).Value ' Chacune des lignes
Next i
' ensuite on remplit les colonnes (Sur la feuille de 2 à 5, mais dans listview 1 à 4)
For i = 1 To 11
For j = 2 To 12
.ListItems(i).SubItems(j - 1) = Cells(i + 3, j)
Next j
Next i
End With
End Sub