Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range, x#, critere
x = (0.3 * 100) / 100 'Equivaut à 30%
critere = Format(x, "0%")
If Not Intersect(Target, [G2:G65536]) Is Nothing And Target.Count = 1 Then
Set cel = ActiveCell.Offset(0, -1) 'Cellules colonne F
If cel.Text >= critere Then
ActiveCell.Offset(0, -1).Interior.Color = vbGreen
Else
ActiveCell.Offset(0, -1).Interior.Color = vbRed
End If
End If
End Sub