Sub testtcd()
'
' testtcd Macro
'
Dim SKU As String
SKU = Selection.Copy
Sheets("sales LE WW (2)").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Reference code").PivotFilters.Add _
Type:=xlCaptionEquals, Value1:=SKU
Range("D16").Select
End Sub