Peaufiner un code VBA (sous Excel)

Bonjour,

Il s'agit de pallier aux insuffisance du code actuel qui génère parfois des erreurs, le code es le suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Not Intersect(Target, Union(Columns(5), Columns(10))) Is Nothing Then
If Len(Target) > 0 Then
Select Case Target.Column
Case 10
If Right(Target, 1) = 9 Then _
Target.Characters(Len(Target), 1).Font.ColorIndex = 42
Case 5
If Target.Row Mod 6 = 0 And Right(Target, 1) = "K" Then _
Target.Characters(5, 1).Font.ColorIndex = 42
If (Target.Row + 2) Mod 6 = 0 And Right(Target, 1) = "e" Then _
Target.Characters(5, 1).Font.ColorIndex = 42
If Target.Characters(5, 1).Font.Underline = _
xlUnderlineStyleDouble Then _
Target.Offset(0, 5).Characters(Len(Target.Offset(0, 5)), 1).Font.Underline = _
xlUnderlineStyleDouble
If Target.Characters(5, 1).Font.Underline = _
xlUnderlineStyleSingle Then _
Target.Offset(0, 5).Characters(Len(Target.Offset(0, 5)), 1).Font.Underline = _
xlUnderlineStyleSingle
End Select
End If
End If
End If
End Sub

Voir le fichier ci joint sachant que ce code s'applique à des données rentrés de A à K répartis sur 3 lignes -données saisi en E (ligne 1) et J (même ligne), puis en même cellule mais deux lignes plus bas soit (ligne 3) ;

Voir le fichier pour mieux comprendre, le premier onglet présente les nouveaués attendus, le second est plus détaillé.

http://www.cijoint.fr/cjlink.php?fil...cijt8dOHrH.xls

Merci à vous, n'hésitez surtout pas à me poser des questions!
A très vite!