Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:B10")) Is Nothing Then
Application.EnableEvents = False
If Target.Column = 1 Then
Target.Offset(0, 1) = IIf(Target = "", "", "entrée1")
Else
Target.Offset(0, -1) = IIf(Target = "", "", "entrée2")
End If
Application.EnableEvents = True
End If
End Sub