Sub sauvegardefeuille()
Range("b1").Value = Range("b1").Value + 1
Range("A1:U146").Select
Selection.Copy
Sheets("Matrice").Select
Dim ws As Worksheet
Set ws = Worksheets.Add(after:=Sheets("Matrice"))
ws.Name = Sheets("Matrice").Range("A1").Value
Cells.Select
ActiveSheet.Paste
Columns("A:I").Select
Selection.ColumnWidth = 3
Columns("K:U").ColumnWidth = 3
Columns("J:J").ColumnWidth = 11
Range("J3").Select
Application.CutCopyMode = False
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
End With
Range( _
"16:16,18:18,20:20,22:22,24:24,26:26,28:28,30:30,32:32,34:34,36:36,38:38,40:40,42:42,44:44,46:46,48:48,50:50,52:52" _
).Select
Range("A52").Activate
Range( _
"16:16,18:18,20:20,22:22,24:24,26:26,28:28,30:30,32:32,34:34,36:36,38:38,40:40,42:42,44:44,46:46,48:48,50:50,52:52,54:54,57:57,59:59,61:61,63:63,65:65,65:65,69:69" _
).Select
Range("A69").Activate
Selection.RowHeight = 3.75
Range("E70:I70").Select
End Sub