Salut Chris, salut le forum,
Chris, je n'ai pas réussi à utiliser la mise en forme conditionnelle mais j'ai utilisé la condition.
Public Sub somme()
a = 0
For Each cel In UsedRange
If cel.Value < 63 Then
a = a + cel.Value
End If
Next
b = MsgBox("la somme est : " & a)
End Sub
À plus,
Robert