XL 2010 Marco copier coller valeur

Bonjour à tous,

J'ai une macro ci-dessous ou j'aimerais après le copier ne coller que les valeurs des cellules.
J'ai testé plusieurs solution trouver sur le net mais aucune ne fonctionne, quelqu'un aurait il une idée.
Exemple testé qui ne fonctionne pas:
FCAL.Selection.PasteSpecial Paste:=xlPasteValues

Merci d'avance pour votre aide

Sub Imp()
Dim TtesLignes, Derligne As Integer
Set FDATA = ActiveWorkbook.Sheets("DATA")
Set ADATA = FDATA.Range("A1")
Set FCAL = ActiveWorkbook.Sheets("CAL")
Set ACAL = FCAL.Range("A1")

TtesLignes = FDATA.UsedRange.Rows.Count
Range(ADATA(1, 1), ADATA(TtesLignes, 1)).Copy
ACAL(1, 1).Select
FCAL.Paste
Range(ACAL(1, 1), ACAL(TtesLignes, 1)).RemoveDuplicates Columns:=1, Header:=xlYes
ActiveWorkbook.Names("ListeHabillages").RefersTo = Range(ACAL(2, 1), ACAL(2, 1).End(xlDown))
ACAL(1, 1).Select

End Sub