Changer la couleur d'un onglet automatiquement selon condit

merci

par contre je ne sais absolument pas faire de VBA :-(

un exemple de code:

Private Sub Workbook_Open()
Dim ws1 As Worksheet, ws2 As Worksheet, nom As String, d As Integer, m As Integer, y As Integer, prems As Boolean
prems = True
For Each ws2 In ThisWorkbook.Sheets
    If Not prems Then
        nom = ws2.Name
        If Len(nom) = 8 Then
            d = Left(nom, 2)
            m = Mid(nom, 4, 2)
            y = Right(nom, 2)
            If IsNumeric(d) And IsNumeric(m) And IsNumeric(y) Then
                If DateSerial(y, m, d) < Now() Then
                    ws1.Tab.Color = RGB(128, 128, 128)
                End If
            End If
        End If
    End If
    prems = False
    Set ws1 = ws2
Next ws2
End Sub

Si un onglet a un nom correspondant à une date présente ou passée, le code met en gris la couleur de l'onglet à gauche.

Le code a bien été copié dans le module de code du classeur?