Public Sub Verifier()
If ActiveSheet.Name <> "Nbre de jour" And ActiveSheet.Name <> "Récap" And ActiveSheet.Name <> "01" Then
nom_onglet = Val(ActiveSheet.Name)
nom_onglet2 = nom_onglet - 1
x = Sheets("" & Format(nom_onglet2, "00") & "").[H19]
y = ActiveSheet.[H19]
If x <> y Then
ActiveSheet.[H19].Font.ColorIndex = 3
End If
End If
End Sub