Re : les noms des plages de cellules
Bonsoir,
Le code suivant permet de modifier TOUS les noms du classeur et agrandit des zones auxquelles ils referent d'une ligne au-dessus.
Voir illustration dans le fichier joint.
Sub Test()
For Each X In Names
MaRef = Split(X.RefersTo, "!")
ActiveWorkbook.Names.Add Name:=X.Name, RefersTo:=MaRef(0) & "!" & Range(MaRef(1)).Offset(-1, 0).Resize(Range(MaRef(1)).Rows.Count + 1).Address
Next
End Sub
Attention, si une zone nommée commence en ligne 1 ça plante ...