Sub test2()
Application.ScreenUpdating = False
Dim plage As Range
For Each plage In Range("A1", Range("A1").End(xlDown))
With plage
If .Value > .Offset(, 1) Then
.Font.Bold = True
Else
.Font.Bold = False
End If
End With
Next
End Sub
Bonjour le fil et à toi mayu,
Un petit exemple en PJ
A plus !