Utilisation de ARRAY

Bonjour,

Je tente, vainement d'écrire une macro permettant de vider certaines cellules de certaines feuilles d'un classeur.
J'en suis au code suivant :
Sub sel()
'

Sheets(Array(, "Famille 1", "Famille 2", "Famille 3", "Famille 4", _
"Famille 5", "Famille 6", "Famille 7", "Famille 8", "Famille 9", "Famille 10", _
"Famille 11", "Famille 12", "Famille 13", "Famille 14", "Famille 15", "Famille 16", _
"Famille 17", "Famille 18", "Famille 19", "Famille 20", "Famille 21", "Famille 22", _
"Famille 23", "Famille 24", "Famille 25", "Famille 26", "Famille 27", "Famille 28", "Famille 29", _
"Famille 30")).Select

Sheets(Array(, "Famille 1", "Famille 2", "Famille 3", "Famille 4", _
"Famille 5", "Famille 6", "Famille 7", "Famille 8", "Famille 9", "Famille 10", _
"Famille 11", "Famille 12", "Famille 13", "Famille 14", "Famille 15", "Famille 16", _
"Famille 17", "Famille 18", "Famille 19", "Famille 20", "Famille 21", "Famille 22", _
"Famille 23", "Famille 24", "Famille 25", "Famille 26", "Famille 27", "Famille 28", "Famille 29", _
"Famille 30")).Unprotect Password:=""
Range("C6:AG8,C10:AG12,C14:AG16,C18:AG20,Y26:Z30").ClearContents
Sheets(Array(, "Famille 1", "Famille 2", "Famille 3", "Famille 4", _
"Famille 5", "Famille 6", "Famille 7", "Famille 8", "Famille 9", "Famille 10", _
"Famille 11", "Famille 12", "Famille 13", "Famille 14", "Famille 15", "Famille 16", _
"Famille 17", "Famille 18", "Famille 19", "Famille 20", "Famille 21", "Famille 22", _
"Famille 23", "Famille 24", "Famille 25", "Famille 26", "Famille 27", "Famille 28", "Famille 29", _
"Famille 30")).Protect Password:=""
Sheets(Array(, "Famille 1", "Famille 2", "Famille 3", "Famille 4", _
"Famille 5", "Famille 6", "Famille 7", "Famille 8", "Famille 9", "Famille 10", _
"Famille 11", "Famille 12", "Famille 13", "Famille 14", "Famille 15", "Famille 16", _
"Famille 17", "Famille 18", "Famille 19", "Famille 20", "Famille 21", "Famille 22", _
"Famille 23", "Famille 24", "Famille 25", "Famille 26", "Famille 27", "Famille 28", "Famille 29", _
"Famille 30")).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Lorsque je lance cette macro, destinée à être lancée à l'aide d'un bouton, j'ai en retour un message d'erreur 'incompatibilité de type'.

Un petit coup de main serait le bienvenu.

Merci
mall60