XL 2016 Transfert lignes non vides d'une feuille vers une autre

Sub Transferer()
Application.ScreenUpdating = False
Tin = Range("A3:F" & Cells(Cells.Rows.Count, "A").End(xlUp).Row)    ' Transfert données dans tableau
ReDim T(1 To UBound(Tin), 1 To UBound(Tin, 2))                      ' Dimensionnement tableau de sortie
Ligne = 1
For i = 1 To UBound(Tin)                                            ' Pour toutes les lignes
    If Tin(i, 5) > 0 Then                                           ' Si quantité non nulle
        For j = 1 To 6: T(Ligne, j) = Tin(i, j): Next j             ' Alors transfert de ligne
        Ligne = Ligne + 1
    End If
Next i
With Sheets("Commande")
    .[A107:F1000].ClearContents                                     ' Effacement tableau Commande
    .[A107].Resize(UBound(T, 1), UBound(T, 2)) = T                  ' Transfert tableau résultat
End With
End Sub