Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Long
With Sheets("Suivi")
For i = .Range("A65536").End(xlUp).Row To [B][COLOR=Red]2[/COLOR][/B] Step -1
If .Cells(i, 5).Value = "" [COLOR=Black][B]Or IsDate(.Cells(i, 6))[/B][/COLOR] Then' [COLOR=Green]ou [B]Or .Cells(i, 6) <> "" Then[/B][/COLOR]
.Rows(i).Delete
Else
.Cells(i, 8).FormulaR1C1 = "=RC[-7]+RC[-3]"
End If
Next
End With
End Sub