VBA can't assign to read only property .Name

J'essaie de faire une macro qui va : Copier le Workbooks dans lequel la macro est à l'intérieur et changer son nom pour prendre le nom dans un Range. Ensuite le Save : ) Je pense que c'est plutôt simple.

Mais voilà ce que j'essaie et sans succès. Aussi je pense que je dois changer mon code car en ce moment il ajoute un workbooks mais pas une copie du ActiveWorkbook

Merci de votre aide :

Sub CopyWK()

Dim i As Integer
Dim fichier As String
Dim W As Workbook
Dim plage As Range
Dim cell As Range

    For i = 1 To 99
    For Each cell In plage

    Set plage = Workbooks("T2").Sheets(1).Range("A2", Range("A2").End(xlDown))

        fichier = plage & " - SI-3958 Excel - Raccourci"

    Set W = Workbooks.Add

    W.Name = fichier      ** Copile error ici 
    Debug.Print fichier

    W.SaveAs

    Next cell
    Next

End Sub

Probleme résolu Merci !