Problème copie toutes les feuilles d'un classeur vers un autre

[poipoi59]

Bonjour,

J'ai écrit ce début de code :

Sub test()

Application.ScreenUpdating = False

Dim Wbk As Workbook

For Each Wbk In Application.Workbooks
If Left(Wbk.Name, 5) = "agenc" Then
Wbk.Activate
Exit For
End If
Next Wbk

If Left(ActiveWorkbook.Name, 5) <> "agenc" Then
MsgBox ("Le fichier n'a pas été trouvé")
Else

Sheets.Select
Sheets.Move Before:= _
Workbooks("Bidule.xls").Sheets(1)

L'objectif étant, qu'à partir du classeur "Bidule", j'aille recherche un classeur ouvert dont le nom commence par "agenc".

J'en copie toutes les feuilles pour les coller dans "Bidule"


Pour moi le code fonctionne.

Par contre, pour un autre collaborateur sur un autre PC mais toujours sur Excel 2003, le code plante à la dernière ligne : "L'indice n'appartient pas à la sélection".

Dans tous les cas, le fichier dont le nom commence par "agenc" est bien ouvert ainsi que le fichier "Module"

Auriez-vous une idée ? une option excel, un module complémentaire ou autre chose...

Merci d'avance

poipoi59