Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([D6:D50], Target) Is Nothing And Target.Count = 1 Then
Select Case ActiveCell.Value
Case "Pas d'action"
ActiveCell.Value = "Mise en place de l'action"
Case "Mise en place de l'action"
ActiveCell.Value = "Pas besoin d'action ou action finie"
Case "Pas besoin d'action ou action finie"
ActiveCell.Value = "Pas d'action"
Case Else
SendKeys "%{down}"
End Select
End If
End Sub