Set R = S.Range(S.Cells(FirstLine, Var.FIX_Col(S)), S.Cells(TestLine, Var.LastCol(S) + 1)) 'Setting of the range
' 4 ********** Copy/Paste of the tab **********
R.Copy
S.Cells(LastLine + 1, Var.FIX_Col(S)).Insert 'On colle tout ça en bas du tableau
' 5 ********** Define the last line of the tab **********
Set R = S.Range(S.Cells(LastLine - 1, Var.FIX_Col(S)), S.Cells(LastLine, Var.LastCol(S)))
' 6 ********** Copy/Paste of the last line **********
LastLine = Var.GetFirstLine(S, LastLine + 3) + Var.Steps_Line_Offset(S) + 2
R.Copy
S.Cells(LastLine, Var.FIX_Col(S)).Insert
Application.CutCopyMode = False 'Stop copy mode