Bonjour Tungstene et le forum,
Utilise ce code qui correpond à collage spécial valeurs:
remplacer :
ActiveSheet.Paste
Par:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Bon courrage, Bon appéti
A+