Problème de boucle

Private Sub BC_Valider_Click()
   
Dim k As Long, y As Long

If CB_Chant.ListIndex = -1 Then Exit Sub

y = 11
With Sheets("StockS")
  For k = 2 To .Range("B65536").End(xlUp).Row
     If .Cells(k, 2) = CB_Chant Then
        Sheets("G_Chant").Cells(y, 2) = CDate(Format(.Cells(k, 1), "dd/mm/yyyy"))
        Sheets("G_Chant").Cells(y, 3) = .Cells(k, 2)
        Sheets("G_Chant").Cells(y, 4) = .Cells(k, 5)
        Sheets("G_Chant").Cells(y, 5) = .Cells(k, 6)
        Sheets("G_Chant").Cells(y, 6) = .Cells(k, 5) * .Cells(k, 6)
        y = y + 1
     End If
  Next
End With

Unload Me
Sheets("G_Chant").Activate

End Sub