re bonjour
le problème : j'ai créer le style mais a chaque fois que je lance la macro cela me change la taille de la police et ne me garde pas le format définit par le style : cellule fond rouge, calibri 14pt,
"Dim NextTime As Date
Sub StartFlash()
Application.ScreenUpdating = False
NextTime = Now + TimeValue("00:00:04")
With ActiveWorkbook.Styles("Flashing").Font
If .ColorIndex = xlAutomatic Then .ColorIndex = 4
.ColorIndex = 3 - .ColorIndex
End With
Application.OnTime NextTime, "StartFlash"
Application.ScreenUpdating = True
End Sub
Sub StopFlash()
Application.OnTime NextTime, "StartFlash", schedule:=False
ActiveWorkbook.Styles("Flashing").Font.ColorIndex = xlAutomatic
End Sub"