Problème boucle If en cascade

Bonjour,

J'ai un problème avec ma macro avec des If.

Ma macro :

Sub Test()

Dim Q As Long
Q = Worksheets("A").Cells(7, 4)

If Q > 0.33 Then
Worksheets("A").Cells(7, 2) = 5
ElseIf Q > 0.12 Then
Worksheets("A").Cells(7, 2) = 4
ElseIf Q > 0.05 Then
Worksheets("A").Cells(7, 2) = 3
ElseIf Q > 0.01 Then
Worksheets("A").Cells(7, 2) = 2
Else
Worksheets("A").Cells(7, 2) = 1
End If

End Sub

Je n'ai pas de message d'erreur mais j'obtiens toujours 1, même lorsque je rajoute "Q=0,2" juste avant mes conditions If j'obtiens quand même 1.

Merci d'avance pour votre aide ! :)