XL 2013 Debogage erreur 438

Bonjour à tous,

J'ai un souci que je n'arrive pas à solutionner sur le nom des onglets de ce code VBA :Set ws_data = wk_file.Worksheets("Info")
Merci d'avance pour votre aide.

Sub dupliquer_refs()

Dim wk_file As Workbook
Dim ws_data As Worksheet
Dim ws_export As Worksheet
Dim lstrw As Long
Dim rw_copy As Long
Dim quantite As Long

'identifier le fichiers et les onglets
Set wk_file = ActiveWorkbook
Set ws_data = wk_file.Worksheets("Info")
Set ws_export = wk_file.Worksheets("FdR")

'identifier la dernière ligne de nos données
lstrw = ws_data.Cells(Rows.Count, 12).End(xlUp).Row

'boucle sur les données
For i = 1 To lstrw
quantite = ws_data.Cells(F, 6)

'boucle sur la quantité
For k = 1 To quantite
'identifier la ligne de collage
rw_copy = ws_export.Cells(Rows.Count, 2).End(xlUp).Row + 1

'coller les infos
With ws_export
.Cells(rw_copy, 1) = ws_data.Cells(i, 1)
.Cells(rw_copy, 2) = ws_data.Cells(i, 2)
.Cells(rw_copy, 3) = ws_data.Cells(i, 3)

End With

Next

Next

End Sub