Erreur d'exécution 13

bonjour je travail sur la confection d'une application, après la confection de code, l'application marchais très bien mais depuis hier ce message qui s'affiche "erreur d'exécution 13 incompatibilité du type"

voici le code ci-dessous

Private Sub UserForm_Initialize()
Dim i As Integer
Dim x As ListItem
Dim j As Integer
Me.amm.View = lvwReport
Me.amm.Gridlines = True
Me.amm.FullRowSelect = True
For j = 1 To Range("xfd1").End(xlToLeft).Column
Me.amm.ColumnHeaders.Add , , Cells(1, j)
Next j
For i = 2 To Range("a32000").End(xlUp).Row
Set x = Me.amm.ListItems.Add(, , Cells(i, 1))
For j = 2 To Range("xfd1").End(xlToLeft).Column
x.ListSubItems.Add , , Cells(i, j)
Next j
Next i
End Sub

À l'avenir pour le code utiliser l'outil de CCM, voir cette page.