Hello
j'ai intégré dans mon code tes lignes : ActiveSheet.Unprotect et ActiveSheet.Protect (comme dans ton code)
maintenant pour déprotéger la feuille je dois enlever la ligne : ActiveSheet.Protect sinon impossible de déprotéger.
par contre bonne nouvelle je n'ai plus de message d'erreur.
mon nouveau code avec tes lignes :
Dim Durée As Date
Public Sub CellulesClignotent()
Dim c As Range
For Each c In Range("AU12:AU111").Cells 'Zone du clignotement a changer
ActiveSheet.Unprotect
If c.Interior.ColorIndex = xlNone Then
If c.Value <> "" And c.Value = 1 Then
c.Interior.ColorIndex = 3
Else
c.Interior.ColorIndex = 0
End If
Else
c.Interior.ColorIndex = 0
End If
Next c
Durée = Now() + TimeValue("00:00:01") 'le temps du clignotement
Application.OnTime Durée, "CellulesClignotent"
ActiveSheet.Protect
End Sub
Sub ArretClignotement()
On Error Resume Next
Application.OnTime Durée, "CellulesClignotent", , False
Range("AU12:AU111").Interior.ColorIndex = xlNone
End Sub
et je te remercie pour ta solution.