J'ai ce test
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
    If FL1.Range("A" & Derlig1 - 1).Value <= (FL1.Range("D3").Value - 0.01) Then _
        FL1.Range("H3").Value = True
Or, la condition n'est pas remplie alors que les valeurs sont :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
FL1.Range("A" & Derlig1 - 1).Value  = -0,0007596860
FL1.Range("D3").Value = 0,005267156
A la main, si je fais la soustraction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
0,005267156 - 0,01 j'obtiens -0,004732844
Si je fais
Code : Sélectionner tout - Visualiser dans une fenêtre à part
= -0,0007596860 <  (0,005267156 - 0,01) => FAUX (?)
J'ai fini de m'arracher les cheveux et j'attaque les sourcils...
Alors merci à celui qui a une explication, mieux, une solution.