Selection conditionnelle de lignes et copie sur autres feuilles

Bonjour,
Débutant en VB, je suis confronté au problème suivant.
Dans mon tableau je souhaite sélectionner des lignes en fonction de la valeur d'une cellule, puis copier ces lignes dans une autre feuille.
J'ai réussi à le faire avec une valeursur une feuille :
Si la ligne contient la valeur "1" je la copie sur la feuille "1".

Mais je ne sais pas comment faire pour que cette formule fonctionne sur une grande plage de valeurs :
Lignes avec la Valeur 2 --> Feuille 2
Lignes avec la Valeur 3 --> Feuille 3
Ect
Pour info, j'ai environ 50 valeurs différentes, donc 50 feuilles cibles.
Ces tableaux sont amenés à être mis à jour souvent.
Donc préalablement je supprime les données des feuilles cibles pour éviter les doublons lors de la mise à jour. (J'aimerai ici aussi appliquer cette formule à toutes les feuilles cibles)
Et après copie des lignes je supprime les lignes vierges dans les feuilles cibles pour obtenir un tableau continu. (Et ici également j'aimerai appliquer cette formule à toutes les feuilles cibles).

Voici mon code :

Sub SelectionLigne()
    Dim Plage As Range
    Dim Ligne As Long
    
  'Effacer le contenu des tableaux sur les feuilles de chaque zone
    Sheets("1").Activate
    Range("A3:G1000").ClearContents

' Sélection des données utiles du tableau de la feuille Global    
    Sheets("Global").Activate
    Range("A5:G1000").Select
    
' Boucle sur chaque ligne de la sélection afin de déterminer si des lignes contiennent la valeur voulue et copie dans une autre feuille
    
        For Each Plage In Selection.Rows
        'Variable ligne = une ligne de ma plage
        Ligne = Plage.Row
            'si la 2 ème cellule de la ligne contient 1
            If Plage.Cells(1, 2).Value = "1" Then
                Plage.Copy Destination:=Worksheets("1").Cells(Ligne, 1).EntireRow
            End If

        Next Plage

' Sélection des tableau des feuilles cibles sans le titre et suppression des cellules vierges sur cette sélection.
            Sheets("1").Activate
            Range("A3:G1000").Select
    
            Selection.SpecialCells(xlCellTypeBlanks).Select
            Selection.Delete Shift:=xlUp
    
End Sub

Merci d'avance pour d'éventuelles astuces ou explications. :)

Sylvain