Dim n As Byte 'mémorise la variable
Private Sub Workbook_Open()
ThisWorkbook.Names.Add "Valeur1", "=""""" 'facultatif"
ThisWorkbook.Names.Add "Valeur2", "=""""" 'facultatif
Application.OnTime Now + TimeValue("0:1:0"), "ThisWorkbook.PoseValeur" 'délai à adapter...
Application.OnTime Now + TimeValue("0:2:0"), "ThisWorkbook.PoseValeur" 'délai à adapter...
End Sub
Private Sub PoseValeur()
n = n + 1
With Sheets("Feuil1").[A1]
If .Value <> "" Then ThisWorkbook.Names.Add "Valeur" & n, .Value 'mémorise la valeur de la cellule
End With
MsgBox "Le nom Valeur" & n & " est renseigné !" 'facultatif
End Sub