Set ws = ThisWorkbook.Worksheets(i)
    With ws
        For i = 200 To 1 Step -1

        identif = .Cells(i, 3).Value
        idftl = Left(identif, 2)

        If Not idftl = "SW" Then
        .Rows(i & ":" & i).Delete
    End If

    Next i
    End With
Next n

End Sub