Set FichierBdD = Workbooks.Add(Template:=(CheminBdD))
For Each FeuilleSource In FichierBdD.Worksheets
Select Case FeuilleSource.Name
Case "MP - Budget", "MP - Conso", "MdO - Budget", "MdO - Conso", "MdO - Salaires"
ThisWorkbook.Sheets(FeuilleSource.Name).Cells.ClearContents
FeuilleSource.Cells.Copy
ThisWorkbook.Sheets(FeuilleSource.Name).Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Call ViderPressePapier
End Select
Next