Macro à optimiser copier-coller spécial

Bonjour à toutes et à tous,

j'ai un souci avec une macro qui fait un couper coller de ligne d'une feuille à une autre, sous condition de statut; je souhaite qu'elle continue de faire le couper-coller mais avec un "special paste" car je ne veux que les valeurs (et non les formules)...et là je sèche !

Voici le code ci-dessous : (j'ai mis la ligne qui me pose problème en gras)

Sub Arch_auto()
'Déclaration des variables ----------------------------
Dim Lig_S As Long 'Ligne source
Dim Lig_D As Long 'ligne destination
Dim F_S As Worksheet 'Feuille source
Dim F_D As Worksheet 'Feuille Destination

'MEI (mise à l'état initial ---------------------------
Set F_S = Sheets("Dmdes actives") 'F1 est le nom de l'onglet source
Set F_D = Sheets("Dmdes_clôturées") 'F2 est le nom de l'onglet destination
Lig_D = F_D.Range("B65536").End(xlUp).Row + 1 'Ligne destination

' Traitement ------------------------------------------
For Lig_S = 1000 To 7 Step -1
'Pour les lignes de 1000 à 7 en décrémentant de 1
'comme on supprime des lignes, c'st plus simple
If F_S.Range("O" & Lig_S) = "Clôturée" Then
'si W est égale à "Clôturée"
F_S.Range(F_S.Range("A" & Lig_S), F_S.Range("O" & Lig_S)).Cut _
F_D.Range("A" & Lig_D)
'on coupe de A à O la ligne et on la copie directement
F_S.Rows(Lig_S).Delete
'On supprime la ligne qu'on vient de couper
Lig_D = Lig_D + 1
'On passe à la ligne de destination suivante
End If
Next Lig_S
End Sub

Un grand merci par avance de vos lumineuses connaissances,
Antoine.