Sub CreationBD ()
Dim XL As New Excel.Application
With Sheets("BD")
tabloBD = .Cells(2, 1).Resize(.Cells(Rows.Count, 1).End(xlUp).Row - 1, 22)
End With
Chemin = ActiveWorkbook.Path
Workbooks.Add
Application.DisplayAlerts = False
Sheets("Feuil2").Delete
Sheets("Feuil3").Delete
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "mafeuille"
With Sheets("mafeuille")
For i = 1 To UBound(tabloBD)
For Colonne = 1 To 22
.Cells(i, Colonne) = tabloBD(i, Colonne)
Next Colonne
Next i
End With
ActiveWorkbook.SaveAs Filename:=Chemin & "\BD.xlsx"
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub