Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If [C28] = "?" And IsNumeric([MaVal]) Then [C30] = [MaVal]
ThisWorkbook.Names.Add "MaVal", [C30].Value, Visible:=False 'nom défini masqué
Application.EnableEvents = True
End Sub