Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
If Not IsEmpty(Target) Then
Sheets(2).Range(Target.Address).Offset(2, 0).EntireRow.Insert
End If
End If
End Sub
c'est à dire:
sur feuille 1 si A2 est remplie alors sur feuille 2 on insere une ligne entre A3 et A4 en automatique