Error 438 et debug

Salut A vous,

j'essaie d'ecrire mon code et l'erreur 438 est apparue quand je debug je me rends compte qu'il pointe ce qui est colore en jaune svp comment reparer cela, jai joint le screenshot et le

fichier excel en question. Svp une idee

Bonjour,

"Worksheets(ActiveSheet).Active" revient à dire "Activer la feuille active", ça n'a aucun sens.

Si vous voulez activer la feuille "Sheet1", faire ceci:

Sheets("Sheet1").Activate

Cdlt

Merci, je l'ai fait mais le message apparait toujours

Vous ne lisez pas correctement, c'est ACTIVATE et non ACTIVE

Merci enormement.