Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If LCase(Target) <> "rouges" And LCase(Target) <> "noirs" Then Exit Sub
Dim i As Byte
Cancel = True
Application.ScreenUpdating = False
On Error Resume Next 's'il manque des feuilles
For i = 1 To 10
If LCase(Target) = "rouges" Then Sheets(Mid("ABCDEFGHIJ", i, 1)).Visible = i < 6
If LCase(Target) = "noirs" Then Sheets(Mid("ABCDEFGHIJ", i, 1)).Visible = i > 5
Next
Target = IIf(LCase(Target) = "noirs", "Rouges", "Noirs") 'inversion du texte
Me.Activate
End Sub