bonjour, un MFC est plus facile et fonctionne mieux, mais ...
Sub Taume()
Dim c As Range
For Each c In Sheets("ouvrages").Columns("B").SpecialCells(xlConstants) 'cellules avec contenu et non-formules
If c.Row > 1 Then
If c.Offset(, 10).Value = 0 Then
c.Font.Color = RGB(0, 0, 255) 'bleu quand qte=0
Else
If c.Offset(, 11).Value / c.Offset(, 10).Value >= 0.75 Then
c.Font.Color = RGB(255, 0, 0) 'rouge quand >=75%
Else
c.Font.Color = RGB(0, 255, 0) 'le reste =vert
End If
End If
End If
Next
End Sub