Bonjour Michel, re C@Thy, Chris et G'Claire, Le Forum
Oui c'est certain qu'il faut être sûr de ta Variable Ligne qui doit of course scruter le End(XlUp) d'une colonne "Non-Vide" sinon ça fait désordre !! lol
Mais le sujet étant Zone Nommée, il me semble que vous vous êtes écarté d'un truc important... Il ne faut pas occulter la "destruction du nom" ... Et ceci Avant de pouvoir le re-générer dynamiquement...
Sub RealRenaming()
Dim L As Integer
Dim TheName As String
TheName = "LeBarDeLaPlage" '(lol)
L = Feuil1.Range("A65536").End(xlUp).Row
On Error GoTo Suite 'si le nom n'existe pas déjà
With ThisWorkbook
.Names(TheName).Delete
Suite:
.Names.Add Name:=TheName, RefersTo:="=Feuil1!$A$2:$A$" & L
End With
End Sub
Bonne Soirée
@+Thierry