Maybe:

Sub graiggorizz()
Dim LOGFU As String
Dim NAMEFU As String
Dim TWENTY As String
Dim TWENTY1 As String
Dim TWENTY2 As String
Dim TWENTY4 As String
Dim HUNDRED As String
Dim FORTY3 As String
Dim FORTY7 As String
Dim FORTY8 As String
Dim FIFTY5 As String
Dim SIXTY2 As String
Dim ws As Worksheet
Dim l As Long
Dim Lastrow As Long

Set ws = Worksheets("Followup2")

ws.Activate
Lastrow = Cells(Rows.count, 1).End(xlUp).Row
For l = 2 To Lastrow
Next l
If l = Lastrow + 1 Then
  dernierID = Cells(l - 1, 1)
  Cells(l, 1).Value = dernierID + 1
End If
Worksheets("Followup").Range("LOGFU").Copy
ws.Cells(l, 2).PasteSpecial xlPasteAll, Transpose = True
Worksheets("Followup").Range("NAMEFU").Copy
ws.Cells(l, 3).PasteSpecial xlPasteAll, Transpose = True
Worksheets("Followup").Range("TWENTY").Copy
ws.Cells(l, 4).PasteSpecial xlPasteAll, Transpose = True
Worksheets("Followup").Range("TWENTY1").Copy
ws.Cells(l, 5).PasteSpecial xlPasteAll, Transpose = True
Worksheets("Followup").Range("TWENTY2").Copy
ws.Cells(l, 6).PasteSpecial xlPasteAll, Transpose = True
Worksheets("Followup").Range("TWENTY4").Copy
ws.Cells(l, 7).PasteSpecial xlPasteAll, Transpose = True
Worksheets("Followup").Range("HUNDRED").Copy
ws.Cells(l, 8).PasteSpecial xlPasteAll, Transpose = True
Worksheets("Followup").Range("FORTY3").Copy
ws.Cells(l, 9).PasteSpecial xlPasteAll, Transpose = True
Worksheets("Followup").Range("FORTY7").Copy
ws.Cells(l, 10).PasteSpecial xlPasteAll, Transpose = True
Worksheets("Followup").Range("FORTY8").Copy
ws.Cells(l, 11).PasteSpecial xlPasteAll, Transpose = True
Worksheets("Followup").Range("FIFTY5").Copy
ws.Cells(l, 12).PasteSpecial xlPasteAll, Transpose = True
Worksheets("Followup").Range("SIXTY2").Copy
ws.Cells(l, 13).PasteSpecial xlPasteAll, Transpose = True

End Sub