For n = Range("E65536").End(xlUp).Row To 1 Step -1
If Range("E" & n) = " " Then
Rows(Range("B" & n).Row).Delete
Set c = Range("B:B").Find("Remarques",[COLOR=red] Range("B" & n[/COLOR]), LookIn:=xlValues)
If Not c Is Nothing Then
li = c.Row
Else
MsgBox ("Pas de Remarques dans la colonne B")
End If
Cells(li + 4, 1).EntireRow.Insert Shift:=xlDown
End If
Next n