Sub definir_droite(nom, reference_cellule, nombre)
Dim tp As String, res
tp = "creation_liste(" + reference_cellule + "," + CStr(nombre) + ")"
tp = "=IF(ISERR(" + tp + "),0," + tp + ")"
res = ActiveWorkbook.Names.Add(nom, tp)
End Sub
Sub essai()
definir_droite "Liste", "$C$1", 2999 'à adapter bien sûr
End Sub