Macro qui fonctionne que partiellement

Bonjour,

j'ai une macro qui fonctionnait et qui ne va plus. Elle sert simplement à vider plusieurs champs dans plusieurs onglets en même temps. 

Elle est dédoublée vu que la fonction "array" n'acceptait pas assez d'arguments.

Elle fonctionne que pour les 2 premiers onglets ("AY" et "LP").

Merci au courageux qui me trouve une solution !

Voici la macro :

Sub effacer_tout()
' Macro enregistrée le 02.03.2009 par abc cde
'
    Sheets(Array("AY", "BW", "CB", "CH", "DH", "GT", "GV", "IF", "JI", "JN", "JW", "LJ")).Select
    Range("C4:J15,C16,C19:C21,C35,C39:D52,D19:D23,D26:D31,D35,D36,G19:G21,G35,H19:H23,H26:H31,H35").ClearContents
    Range("C4").Select
    Sheets(Array("LP", "MZ", "PR", "Réception", "SD", "YL", "DM", "VP", "AUX")).Select
    Range("C4:J15,C16,C19:C21,C35,C39:D52,D19:D23,D26:D31,D35,D36,G19:G21,G35,H19:H23,H26:H31,H35").ClearContents
    Range("C4").Select
    Sheets("AY").Select
    End Sub