Erreur d'execution 9 sur programme recopié

Bonjour,

Débutante en VBA, j'ai un soucis et je n'arrive pas à savoir sa source. J'ai recopié un de mes programme qui fonctionne pour deux fichiers ( un de départ et un d'arrivée) mais quand je souhaite le répliquer dans un nouveau module sur deux autres fichiers, j'ai l'erreur 9: "l'indice n'appartient pas à la sélection" qui s'affiche automatiquement. Je ne sais pas trop quoi faire.

Merci pour votre aide.

voici mon programme:
Sub cash22()

Dim Datestockee As Date
Dim montanttotal As Variant

Workbooks("propre cash 2009 en 2.xls").Activate
Sheets("feuil1").Select 'y'a toujours une feuil1
Cells.Select 'on sélectionne toutes les cellules
Selection.ClearContents 'on clean la feuille pour ne pas mélanger les données

Range("A1").Select

Range("A1").Value = "ISIN"
Range("B1").Value = "montant"
Range("C1").Value = "date"
Range("D1").Value = "coeff"
Range("E1").Value = "cash"

Workbooks("fin cash donnees 2008.xls").Activate

For t = 1 To Sheets.Count

Workbooks("fin cash donnees 2008.xls.xls").Activate
Sheets("feuil" & t).Select

Range("A3").Select
If Range("A3").Value <> "" Then
Selection.End(xlDown).Select
lastrow = Selection.Row

Else

Workbooks("propre cash 2009 en 2.xls").Activate
Sheets("feuil1").Select
Range("A1").Select
Exit Sub

End If

For k = 3 To lastrow

If Cells(k, 1) = "ACTIF NET" Then

For j = 1 To 12
If Cells(2, j) = "MONTANT" Then
montanttotal = Cells(k, j).Value
End If
Next j
ElseIf Cells(k, 1) = "VALEUR LIQUIDATIVE" Then
Datestockee = Cells(k, 3).Value

ElseIf Cells(k, 1) = "RATIO ACTION" Then

coeff = Cells(k, 2).Value
End If
Next k

Cells(70, 1).Value = (1 - coeff) * montanttotal

cashcash = Cells(70, 1).Value
'on revient au fichier de départ
Workbooks("propre cash 2009 en 2.xls").Activate

lig = t + 210

Cells(lig, 1).Value = "Eur Curncy"
Cells(lig, 2).Value = montanttotal
Cells(lig, 3).Value = Datestockee
Cells(lig, 4).Value = coeff
Cells(lig, 5).Value = cashcash

Workbooks("fin cash donnees 2008.xls").Activate
Next t

End Sub

Pourriez-vous m'aider?
Merci beaucoup.