Sélectionner toutes les cellules d'une même couleur dans un tableau

Rebonsoir ,
Avec des boucles comme ci-après, la procédure ne va pas au bout du tableau
(en ligne)...
Sub Compter_Cellules_indéfinies()
'cellules couleurs parasites
Range("B5").Select
Range(Selection, Selection.End(xlDown)).Select
NBlignes = Selection.Rows.Count
Range("E1").Value = NBlignes
Range("F3").Select
sauteligne:
ActiveCell.Offset(1, 0).Select
Set débutligne = ActiveCell
début:
ActiveCell.Offset(0, 1).Select
If Selection.Interior.ColorIndex = 35 And Selection.Interior.ColorIndex
<> 6 Then
'en orange
Selection.Interior.ColorIndex = 45
cellule_corrigée = cellule_corrigée + 1
Range("J1").Value = cellule_corrigée
End If
If ActiveCell.Column = 24 Then
If ActiveCell.Row = NBlignes Then Exit Sub
débutligne.Select
GoTo sauteligne:
End If
GoTo début:
End Sub

"dan---" <dan---@wanadoo.fr> a écrit dans le message de news:
43b59d96$0$21286$8fcfb975@news.wanadoo.fr...

Bonsoir,

Un grand tableau contient des cellules avec un fond de couleur (grande
plage de cellules)
ces cellules sont placées aléatoirement dans le tableau


Comment faire pour les sélectionner, effectuer des modifications (changer
de couleur) et les compter.

Merci pour l'aide

Dan.