Sub compare()
For n = 1 To Range("A65536").End(xlUp).Row
If Range("C" & n) > Range("B" & n) * 1.1 Or Range("B" & n) > Range("C" & n) * 1.1 Then
Range("D" & n) = "X"
End If
Next n
End Sub
Le fait que tu aies 20000 références ne t'oblige pas à créer une macro ... à moins que la raison ne se trouve ailleurs ... et que tu n'aies pas jugé utile de le préciser
Une proposition par formule, en pièce jointe. Pour illustrer le fait qu'une macro n'est pas indispensable, je n'ai pas recopié les formules en D2 et E2. Sélectionne ces deux cellules et fais un double-clic sur la poignée de recopie (dis-nous si tu as besoin d'explications supplémentaires) .. tu verras que, si la colonne voisine ne contient pas de cellules vides, les formules vont se recopier jusqu'à hauteur de la dernière cellule non-vide (y compris s'il y en a 65000)