Sub recherch()
Dim c As Range
Dim cell As Range
Application.ScreenUpdating = False
For Each cell In Sheets("OSIA").Range("E2:E" & Sheets("OSIA").Range("E65536").End(xlUp).Row)
With Sheets("Liste des biens").Range("H2:H" & Sheets("Liste des biens").Range("H65536").End(xlUp).Row)
Set c = .Find(cell, LookIn:=xlValues)
If Not c Is Nothing Then
If c.Offset(0, 9) = cell.Offset(0, 17) / 12 And c.Offset(0, 9) <> 0 And cell.Offset(0, 17) / 12 <> 0 Then
c.Interior.ColorIndex = 3
cell.Interior.ColorIndex = 3
End If
If c.Offset(0, 10) = cell.Offset(0, 19) / 12 And c.Offset(0, 10) <> 0 And cell.Offset(0, 19) / 12 <> 0 Then
c.Interior.ColorIndex = 3
cell.Interior.ColorIndex = 3
End If
End If
End With
Next
Application.ScreenUpdating = True
End Sub