Sub Others()
Dim i As Variant
Dim endrow As Integer
Dim DAV As Worksheet, OTH As Worksheet
Set DAV = ActiveWorkbook.Sheets("Demandes à valider")
Set OTH = ActiveWorkbook.Sheets("Other & Special Requests")
endrow = DAV.Range("A" & DAV.Rows.Count).End(xlUp).Row
For i = 2 To endrow
If DAV.Cells(i, "G").Value = "Others" And DAV.Cells(i, "I").Value = "To be Done" Then
DAV.Cells(i, "G").EntireRow.Cut Destination:=OTH.Range("A" & OTH.Rows.Count).End(xlUp).Offset(1)
End If
Next
End Sub