XL 2019 Copie d'une feuille suivant choix liste déroulante

[halogi]

Bonjour à tous, je bloque sur une macro excel visant à copier une feuille portant le nom du choix d'une liste déroulante.

Feuille 1 : Je fais le choix "Feuille x"
Feuille 1 : Je copie "Feuille X"
Si je fais un autre choix, la copie est remplacée par la bonne feuille.

J'ai tapé la macro suivante :

Private Sub Saisie_Change(ByVal Target As Range)
Dim Ws As Worksheet
Dim Sh As String

If Not Application.Intersect(Target, Range("M5")) Is Nothing Then
Sh = Target.Value
Sheets(Sh).Range("A7:L28").Copy ActiveSheet.Range("A16")
End If

End Sub

Ça ne fonctionne pas.. Pouvez-vous m'aider svp ?

 

[pierrejean]

Bonjour halogi
Voir fichier joint

 

[halogi]

Bonjour, merci pour votre réponse. J'ai mis le code sur ma feuille et lors de l'exécution voici ce qui s’affiche... :

 

[pierrejean]

postez le fichier SVP

 

[halogi]

Malheureusement je ne peux pas car c'est un projet confidentiel. Voici la liste de mes feuilles. Celle ou je sélectionne est la Feuil8 "SAISIE MUR TYPE" et la sélection à copier est entre les feuilles 14 à 18.

 

[pierrejean]

Désolé ,je n'ai pas le temps de créer un fichier a partir de votre réponse

 

[halogi]

Je comprends, merci quand même pour votre aide.

Votre fichier correspondait exactement à ce dont j'avais besoin.