Bonjour à tous,

Je suis désolée je sais qu'il existe bcp de sujets similaires sur le forum mais je n'ai pu trouver de solution et je but sur ce code qui ne fonctionne pas (je suis novice).
J'ai deux classeurs ouverts, je chercher à copier du classeur wkODP vers un classeur WkImpression tous les onglets qui commencent par "_22*".
Je pars du classeur wKImpression (sur lequel j'ai déjà des opérations qui elles fonctionnent) où j'appel le classeur wkODP.
Quand je fais tourner le code, il se bloque sur le passage en jaune ci dessous, néanmoins je pense qu'il ne détecte pas le classeur wkODP car le msgbox que j'ai mis pour vérifier ne s'affiche pas.

J'espère que vous pourrez m'aider et vous remercie par avance.

Sub ImportOngletODP()
Dim wkImpression As Workbook
Dim wkODP As Workbook


Set wkImpression = ThisWorkbook


For Each Workbook In Application.Workbooks
If Left(Workbook.Name, 4) = "ODP_" Then
Set wkODP = Workbook
MsgBox "trouvé"
End If


For Each Worksheet In wkODP.Worksheets
If Left(Worksheet.Name, 3) = "_22" Then
wkODP.Sheets.Copy After:=wkImpression.Worksheets("Impression")
End If
Exit For
Next Worksheet

Exit For

Next Workbook

End Sub