XL 2019 copier/coller en valeur

YohanSC à dit:

Bonjour,

Une question par rapport à ce code, je souhaiterais copier coller en valeur mais je ne sais comment... avec .value ou Pastespecial?

Set wsCopy = Workbooks("ClasseurA.xlsm").Worksheets("Suivi prod")
Set wsDest = Workbooks("CalsseurB.xlsx").Worksheets("Données")
lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
wsCopy.Range("A100:I100").Copy _
wsDest.Range("A" & lDestLastRow)


Merci de votre aide

Yohan

Cliquez pour agrandir...

wsCopy.Range("A100:I100").Copy
wsDest.Range("A" & lDestLastRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats