Ajout de nom à une liste

Option Explicit

Private Sub ListeComplete()
Dim DerLiA As Long
Dim DerLiD As Long
Dim DerLiG As Long
With Sheets("Feuil1")
DerLiA = .Columns(1).Find("*", , , , , xlPrevious).Row
DerLiD = .Columns(4).Find("*", , , , , xlPrevious).Row
DerLiG = .Columns(7).Find("*", , , , , xlPrevious).Row
.Range("A2:A" & DerLiA).ClearContents
.Range("D2:D" & DerLiD).Copy .Range("A2:A" & DerLiD)
.Range("G2:G" & DerLiD).Copy .Range("A" & DerLiD + 1 & ":A" & DerLiD + DerLiG)
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Or Target.Column = 7 Then ListeComplete
End Sub