Bonjour Floka,

Pour répondre à ta question, il me semble qu'il faille que tu changes la référence à la page à laquelle tu veux faire appliquer ta macro.

Je m'explique:

Sur cette partie par exemple:

'=====================================***Partie 1 : Suppression des sous-totaux=============================================================
With Feuil2.Range("A2:A" & Range("A" & Application.Rows.Count).End(xlUp).Row)
    Do
        Set C = .Find("Total")
        If Not C Is Nothing Then
            Feuil2.Cells(C.Row, "A").EntireRow.Delete
        End If '
    Loop While Not C Is Nothing
End With

En dessous de "If Not C Is Nothing Then", tu indiques "Feuil2.Cells...": il faut que tu remplaces le "Feuil2" par le nom de la page sur laquelle tu veux faire travailler ta macro.

D'une manière beaucoup plus général, si tu veux régler tes problèmes de références, indique "ActiveSheet".

Qu'en penses-tu?

Cordialement,

Titom