Code VBA, pour colorer des cellules sous conditions

Bonsoir à Tous,

Je cherche un code en VBA, pour colorer des cellules sous conditions.

Si la cellule I est renseignée et sa cellule à droite (J) aussi, que la cellule J soit en police de caractère Bleue.

Si la cellule I est renseignée, mais que sa cellule à sa droite n'est pas renseignée (J), que la cellule I soit en police de caractère ROUGE.

J'ai mis en cellule I2 à J7 le résultat que j'ai besoin.

Il se peut que I et J soit vide.

Je joins mon fichier exemple.

Merci

Jean

Bonjour Jean,

à tester,

Sub test()
Dim LastRw As Long, i As Long
LastRw = Cells(Rows.Count, 9).End(xlUp).Row
For i = 2 To LastRw
 If Cells(i, 9) <> "" And Cells(i, 10) <> "" Then
    Cells(i, 10).Font.Color = RGB(0, 0, 255)
 Else
    Cells(i, 9).Font.Color = RGB(255, 0, 0)
 End If
Next
End Sub

Bonsoir sabV,

Chapeau encore une fois. Le code fonctionne très bien.

Gros MERCI

Jean.