Comment redimensionner une plage nommée ?

Tu peux utiliser l'instruction Resize si tu pars d'une plage existante.

sub AgrandirLaPlage()
 Dim UnePlage As Range
 Set UnePlage = Range("A1:B2")
 UnePlage.Name = "Plage"
 UnePlage.Resize(UnePlage.Rows.Count + 5).Name = "Plage" ' 5 lignes de +
 MsgBox Names("Plage").RefersTo 'A1:B7
 end sub