Public Sub definir_nom(Titre, reference_cellule, nombre)
Dim res As String
res = "=creation_liste(" + reference_cellule + "," + CStr(nombre) + ")"
ActiveWorkbook.Names.Add Name:=Titre, RefersToR1C1:=res
' ActiveWorkbook.Names.Add Name:=Titre, RefersToLocal:=res
End Sub
Private Sub essai()
Dim Nom_serie, Titre, nb_val
nb_val = 2999
Nom_serie = "graphique_tension_moyenne_seuil_1"
Titre = "M1"
definir_nom Nom_serie, Titre, nb_val
End Sub