Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a
If Target.Address = "$A$1" Then
a = InputBox("Ceci est une InputBox", "Je confime je suis bien InputBox", "Et maintenant?")
End If
If Left(a, 2) = "Et" Then
MsgBox "Test"
End If
End Sub