Sub DuplicTablo()
Dim DerLig As Integer, MonTab, i As Integer
DerLig = Worksheets("Rumilly").Range("A" & Rows.Count).End(xlUp).Row
MonTab = Worksheets("Rumilly").Range("A4:BD" & DerLig)
For i = LBound(MonTab) To UBound(MonTab)
MonTab(i, 2) = MonTab(i, 2) + 1
Next
Worksheets("Rumilly").Range("A" & DerLig + 1).Resize(UBound(MonTab, 1), UBound(MonTab, 2)) = MonTab
End Sub