Problème macro pour facturation

Bonjour,
J'ai un petit problème avec ma facturation.
Lorsque j'appuie sur le bouton pour visualiser les factures archivées, ile me dise qu'il ya une erreur 1004.
et ca ne fonctionne pas.
Je mets le fichier en espérant que quelqu'un me solutionne ce problème.
Merci d'avance. (erreur en orange)

Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 22/05/2009 par VBACrumble
Dim s1 As Worksheet, s2 As Worksheet, tad, i&
Set s1 = Worksheets("VISU Facture")
Set s2 = Worksheets("Contenu facture")
Dim wf As WorksheetFunction
Set wf = Application.WorksheetFunction
tad = Array("E17", "C21", "G10", "G11", "G12", "H12", "D19", _
"B25", "H25", "I25", "J25", _
"B26", "H26", "I26", "J26", _
"B27", "H27", "I27", "J27", _
"B28", "H28", "I28", "J28", _
"B29", "H29", "I29", "J29", _
"B30", "H30", "I30", "J30", _
"B31", "H31", "I31", "J31", _
"B32", "H32", "I32", "J32", _
"B33", "H33", "I33", "J33", _
"B34", "H34", "I34", "J34", _
"B35", "H35", "I35", "J35", _
"J40", "J41", "J42")
Application.ScreenUpdating = False
s1.Visible = xlSheetVisible
s1.[E17] = Worksheets("creation Facture").[09]
For i = 0 To 50
s1.Range(CStr(tad(i))) = wf.VLookup(E17, [A3:BB100], 2, False)
Next
s1.Activate
Application.ScreenUpdating = True
End Sub
Sub macro2()
Worksheets("VISU Facture").Visible = xlHidden
Worksheets("creation Facture").Activate
End Sub