Copie la ligne selectionner et coller chaque cellule

Bonjour Forum

svp je veux un macro qui copie la ligne selectionner et coller chaque cellule de la ligne sur un emplacement definit

par exemple jais un tableau de 100 lignes si jai selectionne la ligne 14 il va copier la premiere cellule dans A4 et 2eme cellule dans E6 .... sur une autre feuille

   Dim Sh As Worksheet
    Set Sh = Sheets("Sheet1")
    ActiveCell.EntireRow.Copy

Bonjour nadal23, le forum,

Une proposition.....

• Les données sont sous forme de tableau structuré nommé Tableau1 (https://www.excel-pratique.com/fr/astuces/tableau-structure)
• La macro s'exécute au double-clic sur une cellule du tableau

A tester...

Cordialement,

merci beaucoup beaucoup , ca marche

juste une petite question , ilya une possible de changer le double click avec un bouton valider ?

Bonsoir et merci pour le retour,

possible de changer le double click avec un bouton valider ?

Essaie ainsi:

Sub Bouton1_Cliquer()
  If Sheets("Sheet1").ListObjects("Tableau1").DataBodyRange Is Nothing Then Exit Sub
    With Sheets("Sheet2")
     .Range("B7") = Sheets("Sheet1").Cells(ActiveCell.Row, 1) 'nom
     .Range("E7") = Sheets("Sheet1").Cells(ActiveCell.Row, 2) 'fct
     .Range("B10") = Sheets("Sheet1").Cells(ActiveCell.Row, 4) 'numéro
     .Range("E10") = Sheets("Sheet1").Cells(ActiveCell.Row, 3) 'département
     .Activate
    End With
End Sub

Cordialement,

Ui ca marche , merci beaucoup