VBA Cumuler dans un tableau

Bonjour,

Bonjour,

j'ai une macro qui me permet de copier l'information de ma feuille SCORE vers ma feuille CUMUL. La macro fonctionne bien, cependant, les nouvelle valeur ne s'ajoute pas dans le tableau dynamique. J'aimerai qu'il s'ajoute dans le tableau pour que je puisse faire des tableaux croisé dynamique avec les nouvelles valeurs.

Sub COPY_MASTER_SCORE_JOURNEE()

 Dim c As Range
    Dim j As Integer
    Dim w As Range
    Dim Source As Worksheet
    Dim Target As Worksheet

    ' Change worksheet designations as needed
    Set Source = ActiveWorkbook.Worksheets("SCORE")
    Set Target = ActiveWorkbook.Worksheets("CUMUL")

    j = Sheets("CUMUL").Range("A1000000").End(xlUp).Row + 1

    For Each w In Source.Range("A2:A100000")
        If w <> "" Then
           Source.Rows(w.Row).Copy Target.Rows(j)
           j = j + 1
        End If
    Next w

End Sub

Merci de votre aide

J'ai joint un fichier en exemple

Bonjour

Essaie en remplaçant :

           'Source.Rows(w.Row).Copy Target.Rows(j)

par :

           Source.Range(w, w.Offset(0, 5)).Copy Range("A" & j)

Bye !

merci

Ça fonctionne parfaitement