[Hervé]

re

Pas sur de comprendre.

Si tu veux nommer la plage de c2:c derniere cellule non vide (quelque soit le nombre renvoyer pas les formules) :

  Range('C2:c' & Range('c65536').End(xlUp).Row).Name = 'list'

Si tu veux nommer les cellules seulement si le résultat de la formule est différent de 0 :

Sub Bouton1_QuandClic()
Dim c As Range
Dim plage As Range

Set plage = Range('C2')
ForEach c In Range('c3:c32')
&nbsp; &nbsp; If c <> 0 Then
&nbsp; &nbsp; &nbsp; &nbsp; Set plage = Union(plage, c)
&nbsp; &nbsp; EndIf
Next c
plage.Name = 'liste'
&nbsp; &nbsp;
EndSub

salut