Problème ".PasteSpecial xlPasteValues"

Bonjour à tous,

J'alimente une base avec le code ci-dessous,

Le masque de saisi contient une plage, alimenté par la formule "=D4"

J'aimerai pouvoir copier / coller dans la base le resultat de D4 et non la formule (qui change quand je modifie D4, donc plus moyen de filtrer).

Je pensais pouvoir coller ".PasteSpecial xlPasteValues"

Set RCible = WSCible.PasteSpecial xlPasteValues.Range("A65536").End(xlUp)(2)


A la suite de RCible mais cela ne marche, j'ai tenté plusieurs méthode, mais la je bloque...

Merci d'avance


Sub CopyDataToDatabase()

Dim WBSource As Workbook, WSSource As Worksheet
Dim WBCible As Workbook, WSCible As Worksheet
Dim RSource As Range, RCible As Range
Dim CheminDatabase As String

Set WBSource = ThisWorkbook
Set WSSource = WBSource.Sheets("Matrice")
Set RSource = WSSource.Range("C8:O18")

Set WSCible = Sheets("Base")

Set RCible = WSCible.Range("A65536").End(xlUp)(2)

RSource.Cut RCible

End Sub