Couleur onglet (feuil) avec VBA

Bonjour les programmeurs,

Je voudrais changer la couleur des onglets d'un classeur avec VBA:
J'ai un classeur avec 40 feuil Qui sont nommé:
DIF/GROUP/1/2/3/4/5/6/7/8/9/10/11/12/13/14........ Jusqu'à 38

Dans la Feuil "DIF" en cellule "G1": Un numéro de 1 à 38

Et en gros je voudrai que sil la feuil à le même numéro que cellule "DIF!G1", Onglet en ROUGE. Sinon en VERT.

J'ai récupéré un bout de code sur un autre forum mais si je dois mettre pour toutes les feuils sa risque d'être trop long:

Private Sub Worksheet_Activate()
checkData
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
checkData
End Sub

Private Sub checkData()
Dim plage As Range
Set plage = Range("G1")
Dim test As Boolean
test = True
For Each cellule In plage
    If cellule = "1" Then
        test = False
        Exit For
    End If
Next cellule

If test = False Then
    Feuil3.Tab.Color = vbRed
Else
    Feuil3.Tab.Color = vbGreen
End If
End Sub

Une Solution?

Merci d'avance.