XL 2016 Dupliquer x fois une action de macro

Sub Test()

Dim aa As Long

Sheets(2).Select
Range("A2").Select

aa = Sheets.Count
For a = 2 To aa
    ActiveCell = Sheets(a).Name & "-" & Sheets(a).Name & "-" & Sheets(a).Name & "-" & Sheets(a).Name
    ActiveCell.Offset(1, 0).Select
Next a

End Sub

Sub Test()

Dim aa As Long

Sheets(2).Select
Range("A2").Select

aa = Sheets.Count
For a = 2 To aa
    For i = 1 To 4
        ActiveCell = Sheets(a).Name
        ActiveCell.Offset(1, 0).Select
    Next i
Next a

End Sub

Sub Test()
Const nfois = 3, Result = "Feuil1"
Dim n&, i&, k&, m&
   n = Sheets.Count
   ReDim t(1 To nfois * (n - 1), 1 To 1)
   For i = 1 To n
      If LCase(Sheets(i).Name) <> LCase(Result) Then
         For k = 1 To nfois: m = m + 1: t(m, 1) = Sheets(i).Name: Next k
      End If
   Next i
   Sheets(Result).Range("a:a").ClearContents
   If m > 0 Then Sheets(Result).Range("a:a").Resize(m) = t
End Sub