Sub EnregistrerBlabla()
Dim Ws As Worksheet, Ws1 As Worksheet
Dim maPlage As Range
Dim i As Long
Set Ws = ThisWorkbook.Sheets("Bla Bla")
Set Ws1 = ThisWorkbook.Sheets("Histo Bla bla")
'Plage qu'il faut copier
Set maPlage = Ws.Range("A2:F" & Ws.Range("F" & Rows.Count).End(xlUp).Row)
maPlage.Copy Destination:=Ws1.Range("A" & IIf(Ws1.Range("A" & Rows.Count).End(xlUp).Row = 1, 1, Ws1.Range("A" & Rows.Count).End(xlUp).Row + 120))
maPlage.Copy
Ws1.Select
Ws1.Range("A" & IIf(Ws1.Range("A" & Rows.Count).End(xlUp).Row = 1, 1, Ws1.Range("A" & Rows.Count).End(xlUp).Row + 120)).PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub