Option Explicit
Sub Déplacer()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("BD")
For i = .Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
If .Range("z" & i) = "Réalisé avec succès" Then
With .Rows(i)
.Copy Destination:=Sheets("BDR").Range("a" & Rows.Count).End(xlUp)(2)
.Delete
End With
End If
Next
End With
Application.ScreenUpdating = True
End Sub