PROBLEME VBA copier ligne avec condition

Sub Copier_Ouvert()
    Dim Cellule_a_copier As Range
    Dim Fin_Colonne As Range
    
    Sheets("A").Select  'Sélectionne ton onglet où sont tes valeurs
    Set Plage = Range("X2", Range("X2").End(xlDown))  'Sélectionne toutes les cellules de X2 jusqu'au bout de la colonne
    
    For Each Cellule_a_copier In Plage
        If (Cellule_a_copier.Text = "Ouvert") Then 'Si la celulle contient le texte
            Sheets("A").Select
            Rows(Cellule_a_copier.Row).EntireRow.Copy 'Alors on copie
            
            Sheets("B").Select  'Sélectionne ton onglet où il faut coller les valeurs
            Set Fin_Colonne = Range("X65536").End(xlUp) 'On va chercher la dernière ligne renseignée
            Fin_Colonne.Offset(1, 0).Select 'On se déplace d'une ligne en dessous
            Rows(ActiveCell.Row).PasteSpecial Paste:=xlPasteValues 'On colle la ligne
        End If
    Next
End Sub

Sub copieLigne()
Dim LigA As Long, LigB As Long
Dim Comp As String 'Pourrait être mis en paramètre dans l'appel de la sub.
    Comp = "Ouvert" 'Alors supprimer cette ligne
    LigB = 4 '1ère ligne ou copier
    With Sheets("Feuil1")
        For LigA = 1 To .Range("X65536").End(xlUp).Row
            If .Cells(LigA, "X") = Comp Then
                .Rows(LigA).Copy Sheets("Feuil2").Rows(LigB)
                LigB = LigB + 1
            End If
        Next LigA
    End With
End Sub