Créer une macro sous excel 2010

Sub lundi_vendredi() 
Dim fin As Integer 
Dim jour_sem as Byte
Dim t_date, t_out 

fin = Cells(Rows.Count, 2).End(xlUp).Row 
t_date = Application.Transpose(Range("B3:B" & fin)) 

ReDim t_out(1 To UBound(t_date)) 
For cptr = 1 To UBound(t_date) 
    jour_sem = Weekday(t_date(cptr), 1) 
    If t_date(cptr) > 30000 And (jour_sem = 6 Or jour_sem = 2) Then 
        t_out(cptr) = 1 
    End If 
Next 

Application.ScreenUpdating = False 
Range("C3:C" & UBound(t_out)) = Application.Transpose(t_out) 
End Sub