Copier cellule dans la cellule sélectionnée par macro

Bonjour à tous,

Je reviens vers vous pour un petit coup de main sur un code: après quelques recherches sur le net, j'ai tenté d'arranger des bouts de codes qui pourraient copier une cellule déterminée et coller celle-ci dans la cellule de mon choix (cellule que je sélectionne via la souris), mais cela ne marche pas..... Ça doit buger quelque part!!

je vous joint mon code si quelqu'un peut me modifier tout cela, ça serait super!!

Sub copier()

Range("E9").Select
Selection.Copy
Sheets("Feuil1").Select
ActiveCell.Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False_, Transpose:=False
ActiveSheet.Paste Link:=True

End Sub

UN GRAND MERCI D'AVANCE!

Bonjour

Essaie ce code :

Sub Ess()

    Sheets("Feuil2").Range("E9").Copy
    ActiveCell.PasteSpecial xlPasteAll

End Sub

Bye !

Bonsoir gmb!

Désolé pour la réponse tardive, mais j'étais sur autre chose en ce moment^^

Je vous remercie pour le code. Ça fonctionne parfaitement!!

Merci!!

Rechercher des sujets similaires à "copier selectionnee macro"