Sub RemplitPageResidus()
Dim T1, T2, T3, T4, DL%
Application.ScreenUpdating = False
T1 = Sheets("Residus FS").Range("A3:D" & Sheets("Residus FS").[A65500].End(xlUp).Row)
T2 = Sheets("Residus 105").Range("A3:D" & Sheets("Residus 105").[A65500].End(xlUp).Row)
T3 = Sheets("Residus 180").Range("A3:D" & Sheets("Residus 180").[A65500].End(xlUp).Row)
T4 = Sheets("Residus 260").Range("A3:D" & Sheets("Residus 260").[A65500].End(xlUp).Row)
With Sheets("Residus")
.[A3:D65000].ClearContents
.Range("A3").Resize(UBound(T1, 1), UBound(T1, 2)) = T1
DL1 = .[A65500].End(xlUp).Row
For L = 3 To DL1
.Cells(L, "C") = "Residus FS" & " - " & .Cells(L, "C")
Next L
DL = 1 + .[A65500].End(xlUp).Row
.Range("A" & DL).Resize(UBound(T2, 1), UBound(T2, 2)) = T2
DL2 = .[A65500].End(xlUp).Row
For L = DL1 + 1 To DL2
.Cells(L, "C") = "Residus 105" & " - " & .Cells(L, "C")
Next L
DL = 1 + .[A65500].End(xlUp).Row
.Range("A" & DL).Resize(UBound(T3, 1), UBound(T3, 2)) = T3
DL3 = .[A65500].End(xlUp).Row
For L = DL2 + 1 To DL3
.Cells(L, "C") = "Residus 180" & " - " & .Cells(L, "C")
Next L
DL = 1 + .[A65500].End(xlUp).Row
.Range("A" & DL).Resize(UBound(T4, 1), UBound(T4, 2)) = T4
DL3 = .[A65500].End(xlUp).Row
For L = DL3 + 1 To DL4
.Cells(L, "C") = "Residus 260" & " - " & .Cells(L, "C")
Next L
End With
End Sub