Detriplement (Dedoublement mais 3 fois) d'une liste

=SI(LIGNE()<=3*NBVAL($A$1:$A$8);INDEX($A$1:$A$8;1+(LIGNE()-1)/3);"")

Sub Duplique()
Dim i As Integer, j As Integer, Lg As Integer
Range("E:E").ClearContents
 Lg = 1
    For i = 1 To Range("A65536").End(xlUp).Row
        For j = 1 To 3 'Copie 3 fois chaque mot
            Cells(i, 1).Copy Range("E" & Lg)
 Lg = Lg + 1
        Next j
    Next i
End Sub

Sub Tripler()
Dim Tablo, res(), i&, j&
  With Sheets("Hoja1")
    .Range("E:E").ClearContents
    Tablo = .Range(.Range("a1"), .Range("a" & Rows.Count).End(xlUp)).Value
    ReDim res(1 To 3 * UBound(Tablo))
    For i = 1 To UBound(Tablo)
      For j = 1 + 3 * (i - 1) To 3 * i
        res(j) = Tablo(i, 1)
      Next j
    Next i
    .Range("e1").Resize(3 * UBound(Tablo)).Value = Application.Transpose(res)
  End With
End Sub