Erreur definie par l'application ou l'objet

Bonjour,

J'écris une macro assez complexe avec plein de userform etc...

J'ai un userform3 avec une listbox codée comme-ci :

Private Sub UserForm_Initialize()

With ListBox1
For k = 2 To 60
.AddItem Worksheets("Ambiant Air Condition").Cells(1, k).Value
Next k
End With

ListBox1.ListIndex = 0
ListBox1.MultiSelect = 1

Puis j'ai le programme suivant qui se lance. Je ne vous mets qu'une partie, là où ca bloque.
J'ai deux sheets. Dans les deux sheets, la colonne A contient des dates sous le format m/d/yyyy h:mm"
La listBox allant chercher mes identifiants de colonnes de la sheet1, je voudrais que si l'utilisateur selectionne le premier item, la macro copie les données correspondants à la date de la sheet1 vers la sheet2. Vous comprendrez avec le code :)
Mais il y a une erreur sur la ligne soulignée, sans que je n'en comprenne la raison



Dim x As String

Dim nbl, nblx As Long
Dim a, b As Long

nbl = Worksheets("Ambiant Air Condition").UsedRange.Count
a = 3
b = 2
For i = 0 To UserForm3.ListBox1.ListCount
If UserForm3.ListBox1.Selected(i) = True Then
For j = 2 To nbl
If Worksheets("Ambiant Air Condition").Cells(j, "A").Value = Worksheets(x).Cells(a, "A").Value Then
Worksheets(x).Cells(a, b).Value = Worksheets("Ambiant Air Condition").Cells(j, (i + 2)).Value
a = a + 1
End If
b = b + 1
Next j
End If
Next i


Merci pour votre aide !