Macro pour basculer entre 2 formats d'affichage

Bonjour le Forum,

J'ai créé une macro avec l'enregistreur de macros, qui me permet d'appliquer un format personnalisé à une cellule.

Sub Format_Date_point_d_interrogation()
'
    Selection.Font.ColorIndex = 3
    Selection.NumberFormat = "dd/mm/yy"" ?"""
End Sub

J'aimerais la perfectionner un peu pour qu'elle fonctionne en "bascule" :

– si mon format personnalisé est déjà appliqué, la cellule revient à un format normal ("jj/mm/aa" en noir)

– si elle est au format de base ("jj/mm/aa" en noir), elle bascule au format personnalisé (" jj/mm/aa " ?" " en rouge)

...mais je ne sais pas comment faire.

A l'aide !

Merci.

Bonjour bonjour,

macro à tester :

Sub melch()

If Selection.NumberFormat = "dd/mm/yy "" ? """ Then
    Selection.NumberFormat = "dd/mm/yy"
    Selection.Font.Color = RGB(0, 0, 0)
Else
    Selection.NumberFormat = "dd/mm/yy "" ? """
    Selection.Font.Color = RGB(255, 0, 0)
End If

End Sub

Testé et approuvé !!!

Merci beaucoup !!