Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("I15")) Is Nothing Then
If Target.Value = "¨" Then
For i = 2 To 6
Sheets(i).Visible = -1
Next i
Target.Offset(0, 1) = "Validez en cliquant sur le bouton rouge "
Target.Value = "þ"
Target.Offset(9, 1).Select
Exit Sub
Else
For i = 2 To 6
Sheets(i).Visible = 2
Next i
Target.Offset(0, 1) = "Validez en cliquant sur le bouton rouge "
Target.Value = "¨"
Cells(9, 1).Select
End If
End If
End Sub