Bonjour à tous,

Avec la précieuse aide de Daniel, j'ai pu mettre en place ce code. Il marche très bien, mais à chaque fois que je saisi quelque chose dans la feuille de calcul, je mets 10 à 15 secondes avant de pouvoir passer à un autre cellule.
Je ne dis pas que la macro en est la cause, je cherche juste à comprendre pourquoi cela se produit.

Merci pour vos suggestions
Cordialement
René

Dans chacune des 8 feuilles du classeur

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Private Sub Worksheet_Calculate()
    Couleurs
End Sub
Dans un module
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub Couleurs()
For Each c In Range([A4], Cells(Rows.Count, 1).End(xlUp))
        For i = 8 To 64 Step 4
            If Cells(c.Row, i + 2) = "" Then
                Cells(c.Row, i).Interior.ColorIndex = xlNone
            Else
                If IsDate(Cells(c.Row, i + 2)) And Cells(c.Row, i + 2) > [A1] Then
                    Cells(c.Row, i).Interior.ColorIndex = 4 'vert
                End If
                If Cells(c.Row, i + i) < [A1] Then
                    If Cells(c.Row, i + 2) - [A1] <= 15 Then
                        Cells(c.Row, i).Interior.ColorIndex = 45 'orange
                    End If
                End If
                If [A1] >= Cells(c.Row, i + 2) Then
                    Cells(c.Row, i).Interior.ColorIndex = 3 'rouge
                End If
            End If
        Next i
    Next c
End Sub