VBA Condition "if" respectée mais le code dans la boucle n'est pas exécuté

Bonjour à tous,

Je suis en train de réaliser un petit programme en VBA, dans celui-ci j'ai un module qui me sert à mettre toutes les valeurs des cellules de couleurs bleus dans une listbox.
Voci une partie du code (certaines déclarations de variable ne sont pas affichées dans cette partie) :

Dim rangeA5 as range
Set RangeA5 = wsTransfert.Range("A5")
For z = 1 To 137 '137 cellules dans la plage que je souhaite "analyser"
    If RangeA5.Offset(0, z - 1).Interior.ThemeColor = xlThemeColorLight2 And RangeA5.Offset(0, z - 1).Interior.TintAndShade = 0.599993896298105 Then  'Condition qui "bug", en gros cette ligne signifie, si la rangeA5 est de couleur bleu "Then ..."
        UserForm1.ListBox5.AddItem (RangeA5.Offset(0, z - 1).Value)
    ElseIf RangeA5.Offset(0, z - 1).Value = "" Then
    Else
        UserForm1.ListBox6.AddItem (RangeA5.Offset(0, z - 1).Value)
    End If
Next

J'ai reperé qu'il me mettait toutes mes cellules dans la listbox6 alors que j'avais des cellules de couleurs bleus, j'ai testé mon programme avec le mode F8, et j'ai regardé les valeurs de :

RangeA5.Offset(0, z - 1).Interior.ThemeColor = xlThemeColorLight2

et de

RangeA5.Offset(0, z - 1).Interior.TintAndShade = 0.599993896298105

lorsqu'une cellule est de couleurs bleus, elle respecte bien les conditions (j'ai vérifié le code 0.599993896298105 par exemple) et pourtant le code en dessous n'est pas exécuté.
Quelqu'un à une idée pourquoi ?

Merci

Philou250