Private Sub nouvelle_annee_Click()
Dim F As Worksheet
Application.ScreenUpdating = False
Sheets.Add(After:=Sheets(Sheets.Count)).Name = Year(Date)
Set F = ActiveSheet
With ActiveWindow
.SplitRow = 1
.FreezePanes = True
End With
Sheets(F.Index - 1).Rows("1:1").Copy F.Range("$A$1")
With F
.Columns("A:B").ColumnWidth = 13
.Columns("C:C").ColumnWidth = 20
.Columns("D:D").ColumnWidth = 7
.Columns("E:E").ColumnWidth = 50
.Columns("F:G").ColumnWidth = 12
.Rows.RowHeight = 25
With .Range("$A$2")
.Value = Right(F.Name, 2) & "D30000"
.Font.Name = "Arial"
.Font.Size = 10
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.AutoFill Destination:=F.Range("A2:A30000")
End With
End With
End Sub