Recherche cellule en défaut avec conditio et la coloriser (VBA)

For co = codeb To cofin

    ' verifions les deux
    recherche = 1 'numéro à trouver
    For li = lideb To lifin
        resultat = Cells(li, co).Value
        Select Case resultat
            Case 1:
                recherche = 2
            Case 2:
                If recherche = 1 Then
                     ' mettre la cellule en vert
                Else
                    recherche = 1
                End If
        End Select
    Next li
                   
    ' verifions les un
    recherche = 2 'numéro à trouver
    For li = lifin To lideb
        resultat = Cells(li, co).Value
        Select Case resultat
            Case 1:
                If recherche = 2 Then
                    ' mettre la cellule en vert
                Else
                    recherche = 2
                End If
            Case 2:
                recherche = 1
        End Select
    Next li
Next co