VBA colorier les cellules sous condition

Bonjour,
J'ai une macro assez spécifique à réaliser et j'ai besoin d'aide. J'ai en fait une colonne m'indiquant des montants avec leurs sous montants situées en dessous, de cette façon

montant 1(en gras)
sous montant 1a
sous montant 1b
montant 2(en gras)
sous montant 2a
...
...
...

Mon but est de colorier en rouge toutes les cellules dont la valeur est supèrieure à 10% de leur montant correspondant.

Ca donnerait en gros

Dim i As Long
Dim e As Long


Sheets("feuil1").Select
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1).Font.Bold = True Then Exit For
Next i
For e = i + 1 To Range("A65536").End(xlUp).Row
If Cells(e, 1).Value > "10% de la prochaine cellule située en haut True" Then Exit For
Next e

Si les deux conditions sont remplies, alors colorier en rouge les cellules supèrieures au montant en question