PasteSpecial entre deux classeurs : erreur 1004

Bonjour à tous.

J'ai besoin de vos conseils avisé svp.

Voila mon histoire : Je souhaite un code VBA dans un classeur ref qui me permette de sélectionner un classeur cible (via un parcourir). Il copiera le contenu (valeurs et format, pas de formules) d'un onglet spécifique de ce classeur cible (même nom d'onglet dans n'importe quel classeur cible) et le collera dans une nouvelle feuille créée pour l'occasion de mon classeur ref.

Seulement voila : pour éviter de copier les formules, je me prend un peu la tête :
1 - je copie donc d'abord le range(A1:B200) de l'onglet cible,que je colle dans le nouvelle onglet de ref.
2- j'efface uniquement le contenu de cet onglet ref
3- je copie à nouveau le contenu de mon onglet cible.
4 - puis je souhaite copier uniquement les valeurs copier dans l'onglet ref.

Pour cette dernière étape, je passe par un PasteSpecial, mais qui me provoque une erreur 1004. les étapes 1 à 3 fonctionnent parfaitement bien....

Voici le code en question.

Sub ImportFile()
Dim filename As String
Dim refWb As Workbook
Dim cibleWb As Workbook

'déclare le classeur actuel comme référence dans refWb
Set refWb = ActiveWorkbook

'affichage fenêtre parcourir, stocke adresse du fichier dans filename
filename = Application.GetOpenFilename

'ajoute une feuille à la fin du classeur
Sheets.Add After:=Worksheets(Worksheets.Count)

'désactive la mise à jour visuelle et l'affichage d'erreur le temps de l'import
Application.ScreenUpdating = False
Application.DisplayAlerts = False

'déclare le classeur cible dans cibleWb

Set cibleWb = Workbooks.Open(filename)

'Copie le contenue de la feuille "Coordination" du classeur cible dans la dernière feuille du classeur ref
cibleWb.Worksheets("Coordination").Range("A1:BA200").Copy Destination:=refWb.Worksheets(refWb.Worksheets.Count).Range("A1:BA200")

'efface le contenu des cellules de la dernière feuille de classeur ref (juste le contenu, conserve les formats)
refWb.Activate
refWb.Worksheets(refWb.Worksheets.Count).Range("A1:BA200").ClearContents

'Copie le contenue de la feuille "Coordination" du classeur cible
cibleWb.Activate
cibleWb.Worksheets("Coordination").Range("A1:BA200").Copy

'colle uniquement les caleurs copier précedemment dans la dernière feuille du classeur ref
refWb.Activate
refWb.Worksheets(refWb.Worksheets.Count).Range("A1:BA200").PasteSpecial Paste:=xlPasteValues

'ferme le classeur cible
cibleWb.Close (False)

'réactive la mise à jour visuelle et l'affichage d'erreurs
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub


lorsque j'exécute le code ligne par ligne, cela bloque au moment du pastespecial.

j'ai même essayé d'attribué la valeur 1 à toute ma plage A1:B200 dans refWb et cela fonctionne parfaitement. J'avoue ne pas comprendre d'ou viens l'erreur. Si quelqu'un peu m'éclairer, ou me proposer des solutions alternative, merci d'avance.