Tableau Croisé Dynamique : traitement 7500 lignes

 1) Tu vas dans https://www.cjoint.com/ 
 2) Tu cliques sur [Parcourir] pour sélectionner ton fichier (15 Mo maxi)
 3) Tu défiles vers le bas pour cliquer sur le bouton bleu [Créer le lien Cjoint] 
 4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien en gras ; tu fais un clic-droit dessus et tu choisis "Copier le lien"
 5) Tu reviens dans ta discussion sur CCM, et dans ton message tu fais "Coller".
=>Voir la fiche https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers 

Sub Total()
'
'
'

'-------------------------
' Définition des variables

Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim i2 As Integer
Dim j2 As Integer
Dim i3 As Integer
'------------------------
' Initialisation des variables


i = 2
j = 0
k = 0
i2 = 0
j2 = 0
i3 = 0


'-----------------------
' Programme
    
    k = i
A:
        
        While Range("B" & i) = Range("B" & i + 1)
          i = i + 1
        Wend
        j = i
B:
        For i2 = k To j
            If Range("C" & i2) <> Range("C" & i2 + 1) Then
            j2 = i2
            GoTo C
            Else
            End If
        Next i2
C:
        For i3 = k To j2
D:
            If Range("D" & i3) = Range("D" & i3 + 1) Then
                Range("E" & i3) = Range("E" & i3) + Range("E" & i3 + 1)
                Rows(i3 + 1).Delete
                GoTo D
            Else
            End If
        Next i3
        
        k = j2 + 1
        
        If j2 = j Then
            i = i + 1
            GoTo A
        Else
            GoTo B
        End If
End Sub