PS, si tu ne veux pas de format HTML et de Link...
Sub CopieColleSansFormat()
AppActivate "Forum Excel Downloads"
SendKeys "^a", True
SendKeys "^c", True
AppActivate "Microsoft Excel"
Range("A1").Activate
ActiveSheet.PasteSpecial Format:="Texte", Link:=False
End Sub
@+Thierry