Sub test()
Dim maplage As Range, c As Byte, l As Byte
Set maplage = Range("R7:T9")
For l = 1 To maplage.Rows.Count
If Round(maplage(l, 2), 5) > Round(maplage(l, 1), 5) Then
maplage(l, 3).Value = "Sup"
ElseIf Round(maplage(l, 2), 5) < Round(maplage(l, 1), 5) Then maplage(l, 3).Value = "Inf"
ElseIf Round(maplage(l, 2), 5) = Round(maplage(l, 1), 5) Then maplage(l, 3).Value = "Egal"
End If
Next l
End Sub