comparaison entre deux onglets et suppression

Sub test()
Dim sTout As Worksheet, sMachine As Worksheet, i As Integer, findCell As Range
Set sTout = ThisWorkbook.Sheets("tout")
Set sMachine = ThisWorkbook.Sheets("Machine")

For i = sTout.Cells(sTout.Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If sTout.Cells(i, 1) <> vbNullString Then
        Set findCell = sMachine.Columns(1).Find(sTout.Cells(i, 1).Value)
        If findCell Is Nothing Then sTout.Rows(i).Delete
    End If
Next i
End Sub