Indication colonne active

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D25:O25")) Is Nothing Then
Range("D25:O25").Interior.ColorIndex = xlNone
Cells(25, Target.Column).Interior.ColorIndex = 3
Range(Cells(28, Target.Column), Cells(35, Target.Column)).Interior.ColorIndex = xlNone
Cells(27, Target.Column).Interior.ColorIndex = 6
Cells(27, Target.Column).Font.ColorIndex = 49
End If
If Not Intersect(Target, Range("D27:O27")) Is Nothing Then
 With Target  ' x colonnes à partir de la colonne D
    
        ' Propriétés communes à tout le tableau
        With .Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .PatternTintAndShade = 0
        End With
        
        ' Propriétés spécifiques aux cellules de l'entête du tableau
        With .Resize(1)
            With .Interior
                .Color = 6299648
                .TintAndShade = 0
            End With
            .Font.Color = -16711681
        End With
        
        ' Propriétés spécifiques au reste des cellules du tableau
        With .Offset(1).Resize(8).Interior
            .ThemeColor = xlThemeColorAccent1
            .TintAndShade = 0.799981688894314
        End With
        
   End With
   
End If
End Sub