VBA optimiser code

Sub Macro1()
Dim D As Object 'déclare la variable D (onglet Donnees)
Dim T As Object 'déclare la variable T (onglet Tri)
Dim I As Byte 'déclare la variable I
Dim J As Byte 'déclare la variable J

Set D = Sheets("Donnees") 'définit l'onglet D
Set T = Sheets("TRI") 'définit l'onglet T
For I = 4 To 11 'boucle 1 : des lignes 4 à 11
    D.Range(Cells(I, 2), Cells(I, 9)).Copy 'copie les cellules des colonnes B à I de la ligne I
    'colle les données dans la première ligne vide de la colonne 3 (=C) de l'onglet Tri
    T.Cells(Rows.Count, 3).End(xlUp)(2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
      False, Transpose:=True
    D.Range(Cells(I, 10), Cells(I, 17)).Copy 'copie les cellules des colonnes J à Q de la ligne I
    'colle les données dans la première ligne vide de la colonne 4 (=D) de l'onglet Tri
    T.Cells(Rows.Count, 4).End(xlUp)(2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
       False, Transpose:=True
    D.Range(Cells(3, 2), Cells(3, 9)).Copy 'copie les cellules des colonnes B à I de la ligne 3
    'colle les données dans la première ligne vide de la colonne 2 (=B) de l'onglet Tri
    T.Cells(Rows.Count, 2).End(xlUp)(2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
       False, Transpose:=True
    For J = 1 To 8 'boucle 2 : de 1 à 8 (= 8 fois)
        'copie la cellule ligne I, colonne 1 et la colle dans la première ligne vide de la colonne 1 (=A)
        D.Cells(I, 1).Copy T.Cells(Rows.Count, 1).End(xlUp)(2)
    Next J 'prichaine fois de la boucle 2
Next I 'prochaine colonne de la boucle 1
End Sub