SI couleur, décalage bas

Salut à tous,

j'ai un soucis bête sur une recherche de présence de couleur dans une cellule. Voici le code

Dim Col As Range, C As Range

 For Each Col In Range("N1:N50").Columns
  For Each C In Col.Cells
  If C.Interior.ColorIndex = "-4142" Then 'pas de couleur alors
'rien
  Else
ActiveCell.Offset(1, 0).Select
  End If
  Next
 Next
 End Sub

Le but étant , de faire un décalage vers le bas de 1 à la présence d'une couleur dans cette plage.

Ou se trouve mon erreur ? merci d'avance

Max

Bonjour

Comme ceci :

Sub test()
Dim C As Range

For Each C In Range("N1:N50")
  If C.Interior.ColorIndex <> -4142 Then C.Offset(1, 0).Select
Next C

End Sub

Cordialement

Merci Dan, c'est OK