public moncopier as range
sub copie()
set moncopier = sheets("feuil1").range("A1:J10")
and
sub colle()
moncopier.copy destination:=activecell
end sub
public moncopier as range, mesvaleurs() as variant
sub copie()
set moncopier = sheets("feuil1").range("A1:J10")
mesvaleurs = moncopier.value
and
sub colle()
moncopier.copy destination:=activecell
selection.value = mesvaleurs
end sub