Recherche en VBA la prochaine cellule d'une couleur de n'importe quelle valeur

Ci-dessous mon code vba qui ne marche pas car Il se positionne sur la première cellule trouvée ayant la bonne couleur mais après, à chaque clic sur le bouton, il se positionne sur la cellule suivante alors qu'elle n'a pas la bonne couleur
Private Sub CommandButton1_Click()
'recherche les différences de couleur bleue


Range("A1:Z500").Select
With Application.FindFormat.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = RGB(183, 222, 232)
.TintAndShade = 0
.PatternTintAndShade = 0
End With

ActiveSheet.Cells.Find(What:="", LookIn:=xlValues, LookAt:=xlPart, SearchFormat:=True).Activate

'MsgBox ActiveCell.Find(What:="", LookIn:=xlValues, LookAt:=xlPart, SearchFormat:=True).Activate
Do While MsgBox("Voulez-vous continuer la recherche ? ", vbYesNo, "Demande de confirmation") = vbYes
With Application.FindFormat.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = RGB(183, 222, 232)
.TintAndShade = 0
.PatternTintAndShade = 0

End With
Cells.FindNext(After:=ActiveCell).Activate


Loop
End Sub

Merci pour votre aide

il y a de multiples façons de faire cela.
tu ne précises pas où il faut commencer, dans quelle direction chercher, ni où s'arreter.

quelques exemples:
https://docs.microsoft.com/fr-fr/office/troubleshoot/excel/loop-through-data-using-macro

merci d'utiliser les balises quand tu partages du code VBA est du basic): https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

un exemple:

Option Explicit

Private Sub cc()
Dim rg As Range, cl As Range
Set rg = Range("A1:Z50")
For Each cl In rg
    If cl.Interior.Color = RGB(183, 222, 232) Then
        cl.Select
        Exit For
    End If
Next cl
End Sub