VBA copier coller valeur

Bonjour,

J'essaie de faire une macro qui copie plusieurs fois le contenu d’une cellule et que le nombres de valeurs à copier dépend de la valeur qui se trouve dans une autre cellule. et renvoi moi le résultat dans une autre feuille

J’arrive à le faire mais le résultat renvoyé est #N/A car les valeurs sont issues de formule

Voilà ce que j'ai créé comme code

voir onglet SIMULATEUR bouton TRANSPOSITION PRODUIT FINI

Dim WsS As Worksheet, WsC As Worksheet

Dim j As Integer, i As Integer

Set WsS = Worksheets("SIMULATEUR") 'Feuille source

Set WsC = Worksheets("TEST") 'Feuille cible

For j = 5 To WsS.Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To WsS.Cells(j, 3).Value

WsS.Cells(j, 1).Copy Destination:=WsC.Range("A" & WsC.Range("A" & Rows.Count).End(xlUp).Row + 1)

Next i

Next j

Set WsC = Nothing: Set WsS = Nothing

Salut Sophiane,

Tu nous envoies deux classeurs, mais aucun des deux ne contient de macro !!

Avec le bout de macro incomplet que tu nous envoies, c’est dur de savoir comment c’est appliqué dans ton fichier.

Peux-tu nous envoyer un fichier complet et indiquer comment tu démarres ta macro ?

Selon la charte du forum, n’écris pas en majuscules, s’il-te-plait. Ca correspond à crier !

Cordialement.