Option Explicit
Sub Date_convertir_format_personnaliser()
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
Sheets("Tableau").Activate
Columns(1).Insert
With Range("a6:a" & Cells(Rows.Count, 2).End(xlUp).Row)
.FormulaR1C1 = "=RC[8]*1"
.Value = .Value
.NumberFormat = "yyyy-mm-dd"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Font.Size = 20
.Font.Name = "calibri"
.Borders.Value = 1
.Copy Destination:=.Offset(, 8)
End With
Columns(1).Delete
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub