Sub Bouton1_Cliquer()
Dim i, derLig, derCol, preLig, preCol As Integer
With Worksheets.Add(After:=Sheets(Worksheets.Count))
.Name = Worksheets(1).Range("B2")
preLig = 3: preCol = 2: derCol = 6
derLig = Worksheets(1).Range("B2").Offset(1, 1).End(xlDown).Row
.Cells(2, 1).Resize(derLig - preLig + 1).RowHeight = 75
.Cells(1, 1).Resize(, derCol - 1).ColumnWidth = 13.57
Worksheets(1).Range("B" & preLig & ":F" & derLig).Copy .Range("A2")
End With
End Sub