Microsoft 365 Coller des lignes tableau vers autres onglets selon critères

Sub Consommables()
    Transfert [X2], 1
End Sub
Sub Equipement()
    Transfert [X2], 11
End Sub
Sub Transfert(Nom$, Colonne%)   ' Transfert le tableau ArchivCdes dans la feuille Nom, colonne A ou K
    On error Goto Fin
    L = 4
    While Cells(L, "N") <> "": L = L + 1: Wend  ' Dernière ligne occupée du tableau
    Tablo = Range("N4:U" & L - 1)               ' Transfert données dans array
    ' Range("N4:U" & L - 1).ClearContents ' Supprimer commentaires si le tableau d'entrée doit être effacé
    With Sheets(Nom)
        L = 7
        While .Cells(L, Colonne) <> "": L = L + 1: Wend ' Recherche première ligne libre
        .Cells(L, Colonne).Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo   ' Copie des données
    End With
Fin:
End Sub