problème sur une commande activate

Bonjour à tous j'ai fait un programme hier qui marchait très bien. Or
aujourd'hui ca ne marche plus et je ne comprends pas pourquoi qi vous pouviez
y jeter un oeil...

Private Sub CommandButton2_Click()
Dim i
'Nb de projets
Dim line
'Nb de personne
Dim k
'nb de mois
p = 2
For Each i In Worksheets("projets").Range("nom_projet").Value
If i <> "" Then

Workbooks(i).Activate
line = 28
'For Each line In Range("E28:E42").Value
'While Not IsEmpty(Worksheets("Fiche Projet").Range("E" &
line))
While Not Worksheets("Fiche Projet").Range("E" & line).Value
= ""
For k = 0 To 12
If Not IsEmpty(Worksheets("fiche
projet").Cells(line, 6 + 4 * k)) Then
Worksheets("fiche projet").Cells(line, 6 + 4 *
k).Copy destination:=Workbooks("charge_V1").Worksheets("BDB").Range("D" & p)
Worksheets("fiche projet").Cells(2, 5).Copy
destination:=Workbooks("charge_V1").Worksheets("BDB").Range("A" & p)
Worksheets("fiche projet").Cells(line, 5).Copy

Workbooks("charge_V1").Worksheets("BDB").Range("B" & p).PasteSpecial
Paste:=xlPasteValues
Worksheets("fiche projet").Cells(8, 6 + 4 *
k).Copy destination:=Workbooks("charge_V1").Worksheets("BDB").Range("C" & p)
p = p + 1
End If
Next k
line = line + 1
Wend
'Next line
End If
Next i

End Sub

J'ai un message d'erreur (sur pas à pas ) au niveau de : Workbooks(i).Activate
erreur d'exécution l'indice n'appartient pas à la sélection??
(le fichier que j'envoie chercher existe)

Si vous pourvez me donner un coup de main je vous remercie beaucoup