Microsoft 365 Macro à l'ouverture du fichier qui ne fonctionne pas correctement

[Sissou71]

Bonjour,
J'ai la macro suivante dans This Workbook et la partie en gras ne fonctionne pas et me renvoie en déboggage chaque fois, quelqu'un saurait-il m'aider à trouver ce qui ne convient pas :

Private Sub Workbook_Open()

'Afficher toutes les données en gardant le filtre dans la feuille Toto
With ThisWorkbook.Worksheets("Toto")
If .FilterMode Then .ShowAllData
End With

'Supprimer le contenu des cellules A2 à Z5000 dans la feuille Tutu
Worksheets("Tutu").Range("A2:Z5000").ClearContent
End Sub

 

[blord]

Bonjour,
Essayer .ClearContents avec un s...

 

[Sissou71]

Blord, merci beaucoup ! Oups