XL 2010 Colorer ligne si la ligne est un multiple de 10

Sub Couleur()
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
With [Tableau1] 'tableau structuré
    .Columns(1).EntireColumn.Insert 'insère une colonne auxiliaire
    .Columns(0) = "=1/MOD(RC[1],10)"
    Intersect(.Columns(0).SpecialCells(xlCellTypeFormulas, 16).EntireRow, .Cells).Interior.ColorIndex = 6 'jaune
    .Columns(0).EntireColumn.Delete 'supprime la colonne auxiliaire
End With
End Sub

Sub RAZ()
[Tableau1].Interior.ColorIndex = xlNone
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
On Error Resume Next 'si aucune SpecialCell
With [Tableau1] 'tableau structuré
    .Columns(1).EntireColumn.Insert 'insère une colonne auxiliaire
    .Columns(0) = "=1/MOD(RC[1],10)"
    Intersect(.Columns(0).SpecialCells(xlCellTypeFormulas, 16).EntireRow, .Cells).Interior.ColorIndex = 6 'jaune
    .Columns(0).EntireColumn.Delete 'supprime la colonne auxiliaire
End With
Application.EnableEvents = True 'réactive les évènements
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
With [Tableau1] 'tableau structuré
    .FormatConditions.Delete 'RAZ
    .FormatConditions.Add xlExpression, Formula1:="=MOD(" & .Cells(1).Address(0, 1) & ",10)=0" 'pour version anglaise
    .FormatConditions.Add xlExpression, Formula1:="=MOD(" & .Cells(1).Address(0, 1) & ";10)=0" 'pour les autres versions
    .FormatConditions(1).Interior.ColorIndex = 6 'jaune
End With
End Sub