Problème de sélection de cellules sans couleur

Bonjour,

J'ai un bout de code qui me permet de détecter les cellules ne contenant pas de couleur de fond dans une plage donnée. Le problème est que des cellules avec une couleur de fond se font sélectionner aussi...

Voici le code :

Sub testSELEC()

With Sheets("Feuil1")
Dim Plg As Range

    Dim Cel As Range, pl As Range
    For Each Cel In .Range("A6:P15")
        If Cel.Interior.ColorIndex = xlNone Then
            If pl Is Nothing Then Set pl = Cel Else Set pl = Union(pl, Cel)
        End If
    Next Cel

    Set Plg = pl
    Plg.Select

End With

End Sub

Je ne vois vraiment pas où est le problème... (j'ai mis le fichier en PJ au cas où)

Si quelqu'un a la solution je suis preneur !

Merci !

Bonjour

Tu remarqueras qu'à la souris c'est pareil

Cellules fusionnées = emm..ments

Bonjour,

donc il n'y a pas de solution ici ?

C'est très bizarre parce que sur tous les autres tableaux de mon fichier dans les autres onglets, ça marche parfaitement, même quand un tableau fait 400 cellules de long...

Je sélectionnerai manuellement cette partie au pire.

Merci en tout cas pour ta réponse !