Bonjour a tous, bonne année, santé, meilleur vœux...

Mon petit problème est sur un code qui calcul sur une page entière ce qui prend relativement du temps.

Voici mon code dans sont intégralité même si vous n'avez pas tout besoin. Et comme je ne mis connais pas grand chose je préfère ne rien oublier lol:
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
      Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim cel As Range
For Each cel In Range("AC26:AC2008")
        Select Case cel.Value
           Case Is < 0
             Call Coloriser_cellule(cel, 1)
           Case Is = 0
             Call Coloriser_cellule(cel, 0)
           Case Is = 1
             Call Coloriser_cellule(cel, 6)
           Case Is > 1
             Call Coloriser_cellule(cel, 1)
         End Select
Next cel
   End Sub
 
     Public Function Coloriser_cellule(ByVal Target_cellule As Excel.Range, ByVal Couleur As Single)
       Target_cellule.Interior.ColorIndex = Couleur
       Range(Cells(Target_cellule.Row, Target_cellule.Column - 28), Cells(Target_cellule.Row, Target_cellule.Column - 6)).Interior.ColorIndex = Couleur
  End Function
Exactement se que je recherche est que quand je travaille sur la ligne 26 il recalcule que la ligne 26 et ainsi de suite jusque qu'a la ligne 2008.

A savoir que dans la Colonne AC ce sont des Formules donc pas d'intervention directement dessus.

Alors je pense que sa dois venir du début du code qui faut changer:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim cel As Range
For Each cel In Range("AC26:AC2008")
        Select Case cel.Value
Merci de vos réponse.