Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Range("A1") représente là ou les cellules sur lesquelles cliquer
If Not Intersect(Target, Range("A1")) Is Nothing Then
'Pour nimportequelle couleur
'If Target.Interior.ColorIndex = xlNone Then Exit Sub
'Pour la couleur orange seulement
If Target.Interior.ColorIndex <> 46 Then Exit Sub
If Range("A2:A5").EntireRow.Hidden = False Then
Range("A2:A5").EntireRow.Hidden = True
Else
Range("A2:A5").EntireRow.Hidden = False
End If
Target.Offset(0, 1).Select
End If
End Sub