Bonjour,
C'est mieux avec une MFC mais si code VBA :
En premier enlever le code qui se trouve dans THISWORKBOOK. cela fait bugguer la macro
Dans le module, remplacez le code par celui ci-après puis associer la macro au bouton sur la feuille
Sub Ecarts_significatifs()
'Variables
Dim Temps_reel As Currency, Temps_prevu As Currency
Dim i As Integer
For i = 7 To Range("A" & Rows.Count).End(xlUp).Row
Temps_reel = Cells(i, 30)
Temps_prevu = Cells(i, 31)
'Si Ecart entre tps réel et tps prévu > 10% alors mettre en couleur
Select Case Temps_reel - Temps_prevu
Case Is > Temps_prevu * 10 / 100
Range("AD" & i).Interior.ColorIndex = 39
Range("A" & i).Interior.ColorIndex = 39
Case Else
Range("AD" & i).Interior.ColorIndex = xlNone
Range("A" & i).Interior.ColorIndex = xlNone
End Select
Next
End Sub
Si ok, en répondant merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER
Amicalement