Vba comparaison entre cellules vides et cellules pleines

Sub JeNeSaisPas()
Dim CelluleTrouvee1 As Range
Dim ColFinale1 As Integer
I = 1 'pas sûr que la boucle doive démarrer à la ligne 1 ???  !

With Worksheets("HSBC")
'Fin = ???

Set CelluleTrouvee1 = .Range("A1:O1").Find("final", LookAt:=xlPart)
ColFinale1 = CelluleTrouvee1.Column

    While I < Fin
        If Not IsEmpty(.Cells(I, ColFinale1)) And IsEmpty(.Range("Q" & I)) Then .Cells(I, ColFinale1).Interior.Color = 255
        I = I + 1
    
    Wend
End With

End Sub

For i = 1 To Fin 'attention la variable fin n'est pas définie
Dim celluletrouvee1 As Range
Dim colfinale1 As Integer

With Sheets("HSBC")
    Set celluletrouvee1 = .Range("A1:O1").Find("final", LookAt:=xlPart)
    colfinale1 = celluletrouvee1.Column
    
    If .Cells(i, colfinale1).Value <> .Cells(i, 17).Value Then
        With .Cells(i, colfinale1).Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 255
        End With
    End If
End With
Next