Bonjour,
Essaye quelque chose comme ceci :
Private Sub ok_Click()
If selection1 = "" Or selection2 = "" Or Not IsNumeric(selection1) Or Not IsNumeric(selection2) Then Exit Sub
If Val(selection1) > Val(selection2) Then MsgBox "Selection1 doit être inférieur à sélection2": Exit Sub
Tb = Range("A1:CG1")
For i = LBound(Tb, 2) To UBound(Tb, 2)
If Tb(1, i) >= Val(selection1) And Tb(1, i) <= Val(selection2) Then Cells(1, i).Interior.ColorIndex = 3
Next i
End Sub
Interior.ColorIndex = 3 donne du rouge.
Si tu veux d'autres couleurs....