VBA Code evenementiel à corriger

Bonsoir.

Il s'agit de modifier ce code en fonction de mes exigences :

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

Les détails avec les exemples se trouvent sur ce fichier téléchargeable.

Merci à vous,

Suivre lien ci-dessous :

https://www.excel-pratique.com/~files/doc/09kEe42K.zip

Bonsoir,

Il s'agit de modifier ce code en fonction de mes exigences

Ah bon? t'as des exigences!

Tant mieux.

A bientôt