Récapituler info

Sub Recap()
Dim k%, i%, p%, j%
Sheets("Recupilatif").Select
For k = 4 To Sheets.Count
    With Sheets(k)
        For i = 2 To Range("A65536").End(xlUp).Row
            For p = 7 To .Range("G65536").End(xlUp).Row
                If .Cells(p, 7).Value = Cells(i, 1).Value And .Cells(p, 8).Value = Cells(i, 2).Value Then
                    For j = 3 To 8
                        Cells(i, j).Value = Cells(i, j).Value + .Cells(p, j + 6).Value
                    Next j
                End If
            Next p
        Next i
    End With
Next k
End Sub