sandra7510 a écrit :
je pensais adapter une solution, une méthode à mon cas
Je te laisse adapter à ta guise, alors
Colle ces quelques lignes dans un module standard ... et teste
Sub cumul()
Application.ScreenUpdating = False
With Feuil1
For Each c In .[B2:B3]
Feuil2.Cells(c.Row - 1, 2) = Feuil2.Cells(c.Row - 1, 2) + c.Value
Next c
.Copy after:=Sheets(Sheets.Count)
.[B2:B3].ClearContents
End With
Application.ScreenUpdating = True
End Sub
Attention tout de même au fait que soumettre un exemple exagérément simplifié est un peu risqué: le traitement fait ici d'un petit tableau de 2 cellules risque de faire "ramer" si, dans ton vrai fichier, le nombre et les dimensions de tes différents tableaux sont bien plus élevés!