Macro pour copier d'une feuille à une autre

Bonjour à tous,

Je viens vers vous pour vous demandez une petit coup de pouce .

Je cherche à copier les lignes C13:G13 de la feuille "Congés et HotLine 2015" vers les lignes C4:G4 de la feuille "S1"

J'ai placé la macro suivante dans ThisWorkbook mais _ça ne fonctionne pas.

Je cherche à que ça soit automatique quand il y a un changement sur la feuille "Congés et HotLine 2015".

Private Sub Workbook_SheetActivate(ByVal Sh As Object, ByVal Target As Range)
Sheets("Congés et HotLine 2015").Range("C13:G13").Select
Selection.Copy
Sheets("S1").Range("").Select
ActiveSheet.Paste

End Sub

Bonjour

Essayes cette syntaxe

Sheets("Congés et HotLine 2015").Select

ActiveSheet.Range("c13:g13").Copy Destination:=Worksheets("S1").Range("C4")

Cordialement

FINDRH

Merci, ça fonctionne presque. La valeur est bien copié mais je pense qu'il y a un conflit entre

Sheets("Congés et HotLine 2015").Select

et

Workbook_SheetActivate

Car quand je change une valeur sur "Congés et HotLine 2015", à chaque fois que le clique sur la feuille S1 ça me renvoi directe sur la feuille "Congés et HotLine 2015".

le conflit vient du fait que ta feuille S1 est définie comme un objet.

Remplace private sub par sub(copier) pour cette macro et lance la par un Call dans ta procédure ou elle est appelée

A tester

FINDRH

Merci encore, en faite je pense que me complique bien la vie car en testant ça, je me rend compte que ça va être compliqué de mettre en ouvre cette méthode pour chaque ligne de chaque semaine et sur chaque feuilles de chacune des semaines.

Il faut que je trouve une autre méthode .