can you use Collection?
you can add Item to collection:

Dim col As New Collecton

Sub initWB00()
Dim i As Integer
Set WB00 = ActiveWorkbook
For Each W In WB00.Worksheets
For i = 1 To 20
If W.CodeName = "Feuil" & i Then
col.Add W, "WB00WS0" & i
End If
Next i
Next W
End Sub