Erreur Application.Goto

Bonjour,

Je rencontre une erreur lors de la réaction d'une macro et je n'arrive pas à trouver de sujet qui résout mon problème.

Dans un premier temps je sélectionne des options dans une liste déroulante qui me permet de sélectionner d'autres option dans une seconde liste (liste déroulantes en cascade).

Lors de la sélection dans la deuxième liste je souhaite ouvrir un nouvel onglet (qui sera masqué pour l'utilisateur).

Voici mon code VBA

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$6" Then

Range("E6") = ""

End If

If Target.Address = "$E$6" Then

If Range("E6").Value <> "" Then

Application.Goto Reference:=Worksheets(Range("E6").Value)

End If

End If

End Sub

Je joins également mon fichier pour plus de détails.

Merci !

Bonjour,

Essaie avec

Application.Goto Reference:=Worksheets(Range("E6").Value).Range("A1")

A+

Super, cela résout parfaitement mon problème !

Merci beaucoup !