[Excel] [VBA] somme de cellules voisines

Bonjour,

Je pense que ce que je veux est assez simple, mais cela fait plus d'une heure que je tourne en rond dans mon code et j'aurais besoin d'un coup de pouce!

En fait j'ai une feuille excel avec 2 colonnes.
Dans la premiere du texte, dans la seconde des chiffres associés.

J'aimerais faire comme une mise en forme conditionnelle, mais qui se base non pas sur une valeur, mais sur un format, c'est à dire que si on met par exemple A1 C1 et E1 en Bleu, alors qu'il fasse la somme des cellules d'à côté dans une autre case.

Le problème est que je ne sais pas comment lui dire "la cellule d'à côté"
Enfin je pensais avoir trouver en changeant le numéro de colonne +1, mais le resultat qu'il m'affiche est très troublant :


Sub test2()

Dim Cellule As Range
Dim total As Variant
For Each Cellule In Range("A1:A100") ' La colonne Texte


'---------------------------------------------------------TEST------------------------------------------------
LigneDeLaCellule = Cellule.Row 'Pour être bien sûr de la ligne de la cellule en cours
ColonneDeLaCellule = Cellule.Column 'Pour être bien sûr de la colonne de la cellule en cours

ColonneDeLaCelluleVoisine = Cellule.Column + 1
CelluleDetaille = Cellule(LigneDeLaCellule, ColonneDeLaCellule)'Les coordonnées de la cellule en cours
CelluleVoisine = Cellule(LigneDeLaCellule, ColonneDeLaCelluleVoisine)'Les coordonnées de la cellule voisine
InverseCelluleDetaille = Cellule(ColonneDeLaCellule, LigneDeLaCellule)
InverseCellulevoisine = Cellule(ColonneDeLaCelluleVoisine, LigneDeLaCellule)
CelluleVoisineA2Theorique = Cellule(2, 2) 'Au moment ou il est sur A2, coordonnées de ce qu'il devrait m'afficher (B2)
CelluleVoisineA2Pratique = Cellule(1, 2) 'Voilà ce qu'il faut marquer pour avoir B2!
'---------------------------------------------------------TEST-------------------------------------------------

If Cellule.Interior.ColorIndex = 3 Then '3 est le code couleur du rouge
If IsNumeric(Cellule(ColonneDeLaCelluleVoisine, LigneDeLaCellule)) Then total = total + cellulevoisine

'Si le font du texte est rouge et que la cellule d'à côté est numérique alors on en fait la somme
'dans la variable Total

End If
Next
Range("G4") = total


End Sub


Et donc voilà les cellules voisines qu'il me trouve:
A2 il me trouve B3
A3 il me trouve B5
A4 il me trouve B7
??? Je ne comprend pas

Merci d'avance de votre aide