Macro "cumul"

Bonjour,

J'ai crée un fichier avec 2 feuilles : Cumul et Liste.

J'ai réalisé une macro appelée "recreerCumul" pour que les informations contenues dans "Liste" viennent se recopier dans "Cumul".

Mais quand je me positionne sur une ligne (feuille Liste) et que j'exécute la macro, seule cette ligne ligne se recopie !

Peut-être auriez-vous une solution ?

Merci d'avance.

Ci-joint fichier RIRI pour plus d'informations.

Feever

Bonjour,

A tester :

Sub Cumultransfert()

Dim ws1 As Worksheet, ws2 As Worksheet
Dim i As Long, plage As Range
Set ws1 = Worksheets("Liste")
Set ws2 = Worksheets("Cumul")
i = ws1.Range("C10000").End(xlUp).Row

Set plage = ws1.Range("B2", ws1.Cells(i, 13))
ws2.Range("B3").Resize(i - 1, 12) = plage.Value

End Sub

Cordialement

Bonsoir,

La macro fonctionne .Merci.

Feever