f[x_]=Sin[x]

x0=1

t[x_]=f'[x0]*x+f[x0]-f'[x0]*x0

Manipulate[Plot[{f[x],t[x]},{x,x0,x0+a}],{a,0.000001,5}]