Copie d'une ligne

Bonjour,

Alros voilà, j'ai une feuil1 et une Feuil 2.

Je voudrais que quand j'insère une ligne entière sur la Feuil 1, la même chose se passe sur la Feuil 2.

Cdlt.

Salut

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If (Target.Column = 1) Then
     Sheets("Feuil1").Select
         Range("A6:A65000").Select
    Selection.Copy
    Sheets("Feuil2").Select
    ActiveSheet.Cells(7, 1).Select
    ActiveSheet.Paste
  End If
End Sub

Code a coller dans ta feuill1

Modifie quelque chose dans la colonne A et tu le retrouve dans la feuill2

Ensuite applique le meme principe pour les autres feuille

Cordialement