Test de case si vide et la remplire

Bonsoir,

J aimerais savoir s il y a une possibilité de tester une case si elle est vide et la remplir.

Dans mon cas je dois tester sur la colonne E si une case est vide si c le cas la remplir par les 6 derniers caractères de la case de la colone A de la meme ligne.

voici un exemple ci joint.

de l aide s il vs plais..

Merci d avance,

BR.

Salut,

colle ce code dans un module Macro

Sub try()
Range("E1").Select
Do Until ActiveCell.Row = Range("E" & Rows.Count).End(xlUp).Row
    If IsEmpty(ActiveCell) Then
        ActiveCell = Right(ActiveCell.Offset(, -4), 6)
        ActiveCell.Font.Color = vbRed
    End If
ActiveCell.Offset(1, 0).Select
Loop

End Sub

merci bcp ca marche a merveill,

BR.