Application.ScreenUpdating = False
Sheets("Autorisations administratives").Select
Range("E7:E17").Select
For Each c In Selection
If c.Offset(0, -4) <> "" Then
c.Offset(0, 4).FormulaR1C1 = _
"=IF(AND(RC[-7]<>"""",RC[-5]<>"""",RC[-3]<>""""),""OK"",""PAS OK"")"
End If
Next c
For Each c In Selection
If c.Offset(0, -4) = "" Then
c.Offset(0, 4).FormulaR1C1 = _
"=IF(AND(RC[-3]<>""""),""OK"",""PAS OK"")"
End If
Next c