problème de code VBA

bonsoir le forum

ne manipulant pas trop VBA j'ai réussi a construire ce code avec l'aide de certains içi merci encore a eux !

Public Sub initlistbox()
Dim c As Range
Dim x As Byte
Dim a As Integer

ListBox1.clear

Sheets('Récap').Activate
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = '50;50;55;50;50;50;60;50;50;50'
x = 0
For Each c In Range('r2:r' & Range('a65536').End(xlUp).Row)
If c = '' Then
a = c.Row
ListBox1.AddItem cells(a, 1)
ListBox1.List(x, 0) = cells(a, 1).Text
ListBox1.List(x, 1) = cells(a, 2).Text
ListBox1.List(x, 2) = cells(a, 3).Text
ListBox1.List(x, 3) = cells(a, 10).Text
ListBox1.List(x, 4) = cells(a, 11).Text
ListBox1.List(x, 5) = cells(a, 13).Text
ListBox1.List(x, 6) = cells(a, 14).Text
ListBox1.List(x, 7) = cells(a, 15).Text
ListBox1.List(x, 8) = cells(a, 16).Text
ListBox1.List(x, 9) = a
*** 'ListBox1.List(x, 10) = cells(a, 19).Text ***
x = x + 1
End If
Next c

End Sub

je voudrais rajouter la lgne entre les * et là j'ai un message d'erreur erreur 380 : impossibilité de définir la propriété List Valeur de propriété non valide

après de multiple test je m'en remets a vous
l'erreur se met sur la dernière ligne ( en faisant F8)
peut etre le problème vient de plus haut mé peut etre decouvrirez vous le blème içi

par avance merci
JC