Problème de débogage fonction windows().activate

Bonsoit à tous

Je rencontre un problème sur la fonction windws().activate : ligne surlignée en rouge. Un petit coup de pouce serait le bien venu...

Objectif : retranscrire la ligne précédente par concaténation

Sub mise_a_jour()
'
Dim i As Integer


i = 3

'Do Until Range("A" & i).Value = ""

Workbooks.Open Filename:="R:\Achat\Commande Fournisseur\CF2007\CF0709\" & Range("A" & i).Value & ".xlsx"
Windows("Commandes 2007.xlsm").Activate
Range("B" & i).Select
ActiveCell.FormulaR1C1 = "='[" & Range("A" & i).Value & ".xlsx]Commande'!R12C3"
'Windows("CF0709-001.xlsx").Activate
Windows(" & Range("A" & i).Value & ".xlsx").Activate
ActiveWorkbook.Close False
i = i + 1
'Loop

End Sub

Merci,

@+
Jean