XL 2016 VBA : Colorer en vert l'onglet actif

Dim coulAvant
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   coulAvant = Sh.Tab.Color
   Sh.Tab.Color = vbGreen
End Sub

Private Sub Workbook_SheetdeActivate(ByVal Sh As Object)
   If Not IsEmpty(coulAvant) Then Sh.Tab.Color = coulAvant
End Sub

Option Explicit
Dim coulAvant
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   coulAvant = Sh.Tab.Color
   Sh.Tab.Color = vbGreen
End Sub

Private Sub Workbook_SheetdeActivate(ByVal Sh As Object)
   If Not IsEmpty(coulAvant) Then Sh.Tab.Color = coulAvant
End Sub

'================
Private Sub Workbook_Open()
Sheets("SUIVI").Select
Application.WindowState = xlMaximized
Cells(4 + Month(Date), 2 + Day(Date)).Select
End Sub

Option Explicit
Dim TabColor

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sh.Tab.Color = vbGreen
End Sub

Private Sub Workbook_SheetdeActivate(ByVal Sh As Object)
    If TabColor.exists(Sh.CodeName) _
    Then Sh.Tab.ColorIndex = TabColor(Sh.CodeName)
End Sub
Private Sub Workbook_Open()
    Tab_Color
    Sheets("SUIVI").Select
    Application.WindowState = xlMaximized
    Cells(4 + Month(Date), 2 + Day(Date)).Select
End Sub
Sub Tab_Color()
Dim Sh As Worksheet
    Set TabColor = CreateObject("Scripting.Dictionary")
    For Each Sh In ThisWorkbook.Sheets
        TabColor.Add Sh.CodeName, Sh.Tab.ColorIndex
    Next
    Set Sh = Nothing
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   Sh.Names.Add "CoulTab", Sh.Tab.Color
   Sh.Tab.Color = &HFF00&
   End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
   On Error Resume Next
   If Sh.Tab.Color <> &HFF00& Then
      Sh.Names.Add "CoulTab", Sh.Tab.Color
   Else
      Sh.Tab.Color = Sh.[CoulTab]: End If
   End Sub