Déplacer une ligne d'une feuille a une autre sans la supprimer.

Bonjour,

je vais essayer d'être le plus clair possible.
J'ai un tableau Excel avec plusieurs colonnes et plusieurs feuilles.
Je voudrais qu'en colonne BD quand il y a "x" et que je clique sur un bouton. la ligne ce masque dans la première feuille et ce copie dans la deuxième.

j'ai essayer avec ce code mais vue qu'il supprime la ligne sa fait des erreurs sur les formule des autre colonne.
Pour clôturer l’affaire (Mettre x dans colonne clôture et la ligne va dans la feuille clôture) :

Sub Transfert2()
Dim c As Range, cDest As Range

Application.ScreenUpdating = False
With ThisWorkbook
'cDest: La celllule de destination: première cellule vide de la colonne A de Feuil2
With .Worksheets("Cloture")
Set cDest = .Cells(.Rows.Count, "A").End(xlUp)(2)
End With
With .Worksheets("Suivi des Affaires")

'on cherche LA CELLULE contenant x en colonne BD de Feuil1
Set c = .Range("BD:BD").Find("x", LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
With c.EntireRow
'On copie toute la ligne trouvée vers cDest
.Copy cDest
'on supprime la ligne trouvée de Suivi des Affaires
.Delete
End With
Set c = Nothing
End If
'on vide notre variable cDest
Set cDest = Nothing
End With
End With
End Sub


Pouvez-vous m'aider?
Merci au futur réponse.
Bonne journée à tous! ;)