[zeltron]

Merci Essem pour ton aide,

Je viens de voir ton message en revenant pour donner la solution que j'ai trouvé:
Sub...
Workbooks.Open Filename:=ThisWorkbook.Path & "\x.xls"

Sheets(Array("A", "B_Janv")).Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\B_Janv.xls"
ActiveWorkbook.Close

Sheets(Array("A", "B_Fév")).Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\B_Fév.xls"
ActiveWorkbook.Close
Ect...
ActiveWorkbook.Close '=>Pour fermer le fichier "x"
End sub

Ton code Essem est quand même bien plus condensé que le mien!!!

Je te remercie de ton aide et de cette leçon d'écriture de code efficace!

Cordialement

Zeltron