Mise en forme conditionnelle en vba

Bonjour les gars .
Jaimerais bien savoir comment faire pour mettre ce que je mets en mise en formes conditionnelle sur une macro . Je m'explique. Jai une colonne avec de chiffres. Si les chiffres supérieurs ou egal 80 la case soit en vert sinon en rouge . Mais tout ca se modifie une j'appuie sur un bouton. Merci davance

bonsoir
avec bouton :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub testtt() Dim C As Range For Each C In Sheets("feuil1").Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row) If C.Value > 80 Then C.Font.ColorIndex = 10 Else C.Font.ColorIndex = 3 End If Next End Sub

---

et si tu veux que la couleur change suite au saisie d'une valeur ; voir worksheet_change :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False If Not Application.Intersect(Target, Range("A2:A2000")) Is Nothing Then If Target.Value > 80 Then Target.Font.ColorIndex = 10 Else Target.Font.ColorIndex = 3 End If End If Application.EnableEvents = True   End Sub

---

bonne continuation