Fusion de cellules sur 1 colonne et cumul aut

'Adapter Feuil2 et Feuil3  
Sub Totalisation_Annuelle()  
Dim LigS As Long, LigC As Long, NbLigS As Long  
Dim Tot() As Double, Total As Double  
Dim Client() As String, LigClient() As Long, NumClient As Long  
Dim i As Long  
    With Sheets("Feuil1") ' adapter le nom de la feuille  
        NbLigS = .Range("A65536").End(xlUp).Row  
        LigC = 2  
        'Chercher le nombre et le nom de tout les clients  
        ReDim Client(0): Total = 0: ReDim LigClient(0) '1er client  
        Client(0) = .Range("B2"): LigClient(0) = 2 'Commence à la ligne 2  
          
        For LigS = 3 To NbLigS  
            For i = 0 To UBound(Client)  
                If .Cells(LigS, 2) = Client(i) Then Exit For  
            Next i  
            If i = UBound(Client) + 1 Then 'C'est un autre client  
                ReDim Preserve Client(UBound(Client) + 1)  
                ReDim Preserve LigClient(UBound(LigClient) + 1)  
                Client(UBound(Client)) = .Cells(LigS, 2)  
                LigClient(UBound(LigClient)) = LigS  
            End If  
        Next LigS  
        'Ici on a le nom des clients dans Client() et la 1ère ligne dans NumClient()  
        For NumClient = 0 To UBound(Client)  
            ReDim Tot(1 To 9): Total = 0  
            For LigS = LigClient(NumClient) To NbLigS  
                If .Cells(LigS, 2) = Client(NumClient) Then  
                    For i = 1 To 9  
                        Total = Total + .Cells(LigS, i + 7)  
                        Tot(i) = Tot(i) + .Cells(LigS, i + 7)  
                    Next i  
                End If  
            Next LigS  
            'Toutes les données du client ont étés totalisées  
            'Inscrire les données client.  
            For i = 1 To 6  
                Sheets("Feuil3").Cells(LigC, i) = .Cells(LigClient(NumClient), i)  
            Next i  
            Sheets("Feuil3").Cells(LigC, 5) = "Annuel"  
            'inscrire les totaux  
            Sheets("Feuil3").Cells(LigC, i) = Total  
            For i = 1 To 9  
                Sheets("Feuil3").Cells(LigC, i + 7) = Tot(i)  
            Next i  
            LigC = LigC + 1 ' passe au client suivant  
        Next NumClient  
    End With  
End Sub