Microsoft 365 Changement de feuille suivant valeur cellule

[Chounoé]

Bonjour, je viens vers vous car j'aimerai créer un lien direct en changeant une cellule. Exemple j'aimerai écrire 15 dans la cellule B6 et une fois valider il m'envoie directement à la feuille 15 et ainsi de suite.
je vous ai mis le fichier joins pour que vous comprenez plus rapidement.
Il s'agit d'une liste déroulante pour info.

Merci de votre aide

 

[cp4]

Bonjour,
.Text au lieu de .Value

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not (Application.Intersect(Range("B6"), Target) Is Nothing) Then _
        ThisWorkbook.Sheets(Target.Text).Activate
End Sub

 

[Chounoé]

Merci beaucoup Cp4 bonne journée