Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Nom As Variant, Zone_Saisie As Range
Set Zone_Saisie = [A1:ZZ10000]
If Intersect(Target, Zone_Saisie) Is Nothing Then Exit Sub
Nom = Application.InputBox(Title:="Essai", Prompt:="Saisir ou modifier", Default:=Target.Text, Type:=2)
If TypeName(Nom) = "String" Then
If Nom = "VRAI" Then Nom = True 'pour convetir la chaîne en booléen
If Nom = "FAUX" Then Nom = False 'pour convetir la chaîne en booléen
'(les valeurs numériques sous forme de chaîne sont directement convertie en numérique)
Target.Value = Nom
End If
End Sub