VBA Pb de déf de valeurs

Bonjour,

Je suis entrain de mettre en palce un outil en programmant sous VBA pour Excel.

J'ai donc un module qui me permet de récupérer des valeurs (nombre) ou chaîne de caractères dans une base de donnés (toujours sous Excel) pour les recopier dans une autre feuille.
Pour les chaîne de caractère il n'y a pas de problème. mais pour les nombres , je n'arrive pas à lire. Rien à faire, j'ai beau essayé Val() , Value. ....

Voici le code:

For l = 7 To Cells(50, 1).End(xlUp).Row
If Not Rows(l).Hidden Then R = R + 1
Next

For k = 12 To (R + 12)
Workbooks("SBTest").Worksheets("Récap").Activate
Cells(k, 1).Select
Selection.EntireRow.Insert
m = k - 11
n = k - 6
Worksheets("Récap").Cells(k, 2) = "Lot n°" & m
Worksheets("Récap").Cells(k, 5) = Workbooks("Bdd").Worksheets("Recap Marché").Cells(n, 2)
Worksheets("Récap").Cells(k, 6) = Workbooks("Bdd").Worksheets("Recap Marché").Cells(n, 4)
Workbooks("SBTest").Worksheets("Récap").Cells(k, 7).Value = Workbooks("Bdd").Worksheets("Recap Marché").Cells(n, 3).Value
Workbooks("SBTest").Sheets("lot1").Copy After:=Sheets("lot" & m)
ActiveSheet.Name = "lot" & m + 1
Next k

C'est donc la ligne : W().Cells(k,7).value=W().W().Cells(n,3).Value
qui devrait me copier un nombre de la feuille récap marché vers la feuille récap.

Si quelqu'un peut me sortir de ce meauvais pas....

Merci d'avance