Recopier les valeurs d'une feuille dans une autre

Bonjour !

J'ai entrepris de réaliser un simple petit programme de caisse adapté à notre commerce. Comme je me débrouille assez bien en Excel et que je voulais apprendre à utiliser le VBA, et ben voilà

Tout allait bien, j'avançais doucement mais sûrement, mais là je bloque. J'ai réalisé une macro qui fonctionnait parfaitement, mais qui ne fonctionne plus. C'est peut-être à force d'avoir le nez dessus que je ne vois pas la faute, mais bon... ça m'agace...

Pour faire simple, j'ai une première feuille qui représente mon ticket de caisse (voir pièce jointe). Au fur et à mesure, des articles se rajoutent et le ticket s'allonge. Dans le bas du ticket, je calcule les TVA, les PHT, les PTTC, etc. Jusque là, ça va.

J'ai une seconde feuille "Détails" dans laquelle je recopie chaque article du ticket au moment de la validation. Là, ça va aussi.

Et puis, j'ai ma troisième feuille "Dét_Client" qui est censé récupérer le résumé du ticket (TVA, PHT, PTTC, nombre d'articles...). Le fichier joint montre bien qu'il me copie n'importe quoi...

Là ça foire (et ça fonctionnait avant)

Voilà le code de mon bouton de validation (qui envoie les données du ticket dans la feuille "Détails" et dans la feuille "Dét. Clients" :

Sub Bouton_finaliser()
    If Range("L2") = 0 Then
        MsgBox "Aucun article dans la vente en cours..."
        Exit Sub
    Else
        'Déclaration des variables
        Dim T As Object, D As Object, C As Object
        Set T = Sheets("Ticket")
        Set D = Sheets("Détails")
        Set C = Sheets("Dét_Client")

        'Copie des articles du Ticket dans la feuille détails
        For i = 8 To Range("L2") + 8 - 1
            Sheets("Détails").Rows(2).Copy
            Sheets("détails").Rows(2).Insert shift:=x1Down
            D.Range("A2") = T.Range("C4")
            D.Range("B2") = T.Range("C" & i)
            D.Range("C2") = T.Range("A" & i)
            D.Range("E2") = T.Range("F" & i)
            D.Range("H2") = T.Range("G" & i)
            Application.CutCopyMode = False
        Next

        'Copie du résumé du ticket dans la feuille dét_Client
            C.Rows(3).Copy
            C.Rows(3).Insert shift:=x1Down
            C.Range("A3") = T.Range("C4")
            C.Range("B3") = T.Range("L2")
            C.Range("C3") = T.Range("G" & (10 + L2))
            C.Range("D3") = T.Range("G" & (11 + L2))
            C.Range("E3") = T.Range("G" & (12 + L2))
            C.Range("F3") = T.Range("E" & (11 + L2))
            C.Range("G3") = T.Range("E" & (12 + L2))
            C.Range("H3") = T.Range("E" & (13 + L2))
            C.Range("I3") = T.Range("D" & (11 + L2))
            C.Range("J3") = T.Range("D" & (12 + L2))
            C.Range("K3") = T.Range("D" & (13 + L2))
            Application.CutCopyMode = False

        'Suppression des articles du ticket
        For i = 8 To Range("l2") + 8 - 1
            Sheets("Ticket").Rows("8").Delete
        Next

    End If

End Sub

Quelqu'un a une idée du pourquoi ça foire ?

Merci d'avance !!!

c'est bon j'ai trouvé tout seul...

Si ça peut aider :

'Copie du résumé du ticket dans la feuille dét_Client
            C.Rows(3).Copy
            C.Rows(3).Insert shift:=x1Down
            C.Range("A3") = T.Range("C4")
            C.Range("B3") = T.Range("L2")
            C.Range("C3") = T.Range("G" & (10 + Range("L2")))
            C.Range("D3") = T.Range("G" & (11 + Range("L2")))
            C.Range("E3") = T.Range("G" & (12 + Range("L2")))
            C.Range("F3") = T.Range("E" & (11 + Range("L2")))
            C.Range("G3") = T.Range("E" & (12 + Range("L2")))
            C.Range("H3") = T.Range("E" & (13 + Range("L2")))
            C.Range("I3") = T.Range("D" & (11 + Range("L2")))
            C.Range("J3") = T.Range("D" & (12 + Range("L2")))
            C.Range("K3") = T.Range("D" & (13 + Range("L2")))
            Application.CutCopyMode = False