Private Sub Worksheet_Change(ByVal Target As Range)
Dim Valeur As Integer
If Target.Count > 1 Then Exit Sub
'seulement en colonne A
If Target.Column <> 1 Then Exit Sub
Select Case Target.Value
Case 1
Target.Offset(, 1) = "boubou"
Case 2
Target.Offset(, 1) = "chichi"
Case 3
'ici la réponse est fonction du choix entre les boutons "Oui" et "Non"
Valeur = MsgBox("Choisir entre 'chichi' et 'boubou'" _
& vbCrLf & _
"'chichi' = bouton Oui" _
& vbCrLf & _
"'boubou' = bouton Non", vbYesNoCancel)
If Valeur = 6 Then Target.Offset(, 1) = "chichi"
If Valeur = 7 Then Target.Offset(, 1) = "boubou"
End Select
End Sub