Erreur sur mon code copier

Bonjour le forum

Quand j'exécute mon code, je reçois le message d'erreur suivant: "la methode copy de la classe range a échoué".

En effet je souhaite copier la plage m13:o64 de la feuille bf0171 et les coller a partir d'une cellule de destination.

La cellule de destination sera: l'intersection d'une valeur de la plage b1:q1 (qui est fonction de la cellule nommée "Semaine") de la feuille cumul_tbc_bf0171 et "Entretiens clients" contenu dans la plage A:A.

Ci joint le fichier pour appréciation.

bonjour,

une proposition de correction

Sub Report_1()

    Application.ScreenUpdating = False
    Set f = Sheets("BF0171")
    Set ft = Sheets("CUMUL_TBC_BF0171")

    lgn = ft.Range("A:A").Find("Entretiens Clients", lookat:=xlWhole).Row
    col = ft.Range("B1:Q1").Find(f.Range("Semaine").Value, lookat:=xlWhole).Column
    Set DEST = ft.Cells(lgn, col)
    f.Range("M13:O64").Copy
    DEST.PasteSpecial Paste:=xlValues
End Sub

Salut h2s04

Merci pour votre solution.

Elle fonctionne à merveille.