Sub date_inter_atteinte()
Dim c As Range
For Each c In Range("E13:E" & Cells(Rows.Count, 5).End(xlUp).Row)
Sheets("Suivi").Unprotect ', Password:="mon_mot_de_passe"
If c.Offset(, 2) <> "" Then
Rows(c).Delete Shift:=xlUp
End If
Next 'passe à la cellule suivante
Sheets("Suivi").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ', Password:="mon_mot_de_passe"
End Sub