Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
'Si la cellule (Traget) est dans la plage $C$4:$L$13
If Not Intersect(Target, Range("$C$4:$L$13")) Is Nothing Then
'En cas d'erreur on passe (si la feuille n'éxiste pas)
On Error Resume Next
'On active la feuille qui a pour nom le deuxième mot
Sheets(Split(Target.Value)(1)).Activate
End If
End Sub