Agir sur toute une plage de cellules

Bonjour

J'ai un tableau Excel de 100 lignes, 26 colonnes.
Je voudrais balayer chaque cellule.
Si la cellule est couleur saumon, je voudrais changer la couleur et effacer le contenu de la cellule.

Qu'est-ce qui pose problème dans mon code?

Merci de votre aide

For MaLigne = 1 To 100
For MaColonne = 1 To 26
Range(MaColonne, MaLigne).Select
If Selection.Interior.ColorIndex = 40 Then
Selection.Interior.ColorIndex = xlNone
Selection.ClearContents
End If
Next MaColonne
Next MaLigne

Configuration: Windows XP
Internet Explorer 6.0