The function designed for this precise task is Evaluate:
Evaluate
Plot[Evaluate[Dt[Sin[x], x]], {x, -5, 5}]
I would use D rather than Dt to compute derivatives:
D
Dt
Plot[Evaluate[D[Sin[x], x]], {x, -5, 5}]
