Sub FormOKKO()
Application.ScreenUpdating = False
On Error Resume Next 'si pas de SpecialCell
If FilterMode Then ShowAllData 'si la feuille est filtrée
[G:G].Replace Date, "#N/A"
With [G:G].SpecialCells(xlCellTypeConstants, 16)
Intersect(.EntireRow, [H:H]) = "=IF(RC[-1]<>TODAY(),""KO"",""OK"")"
Intersect(.EntireRow, [I:I]) = "=IF(OR(SUM(RC[2]:RC[14])=1,RC[-3]=1),""OK"",""KO"")"
End With
[G:G].Replace "#N/A", Date
Intersect([G:G].SpecialCells(xlCellTypeBlanks).EntireRow, [H:I]) = ""
End Sub