Salut les Kracks,

Je souhaiterai obtenir une macro me permettant en double-cliquant sur une cellule située entre B2:B22 de me renvoyer vers son onglet correspondant (même nom!):
Pouvez-vous m'aider à obtenir se résultat en me précisant si il faut que je mette la macro dans "Thisworkbook" ou créer une macro par un double clique sur l'onglet de la feuille?
Ci-dessous un code que j'ai trouvé sur le net et qui marche mais seulement pour la première cellule (peut-être à cause du "Intersect"?)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     
    Dim WSname As String
    Dim WScheck As Worksheet
    Dim WScheckname As String
     
    If Not Intersect(Target, Range("B2:B22")) Is Nothing Then
        WSname = Range("B" & Target.Row)'faudrait peut-être mettre ici Activecell car si je souhaite double-cliquer sur n'importe qu'elle cellule situé entre B2 et B22, il me faut aller à l'onglet correspondant ou le créer!
        On Error Resume Next
        Set WScheck = Sheets(WSname)
        If WScheck Is Nothing Then 'Doesn't exist so create it
            Sheets("Example").Copy Before:=Sheets(Worksheets.Count)
            ActiveSheet.Name = WSname
            ActiveSheet.Visible = True
            Set WScheck = Nothing
            On Error GoTo 0
        Else 'Does exist so activate it
            Sheets(WSname).Activate
            Set WScheck = Nothing
            On Error GoTo 0
        End If
    End If
End Sub
Merci d'avance pour votre aide.