Bonjour,
Une possibilité :
Sub galopin()
Dim ArrS, ArrID, i%, ii%, k%
k = 2
ArrS = Range("T1:Z3")
ArrID = Range("AB2:AB" & [aB65000].End(xlUp).Row)
For i = 1 To UBound(ArrID)
For ii = 1 To 3
ArrS(ii, 1) = ArrID(i, 1)
Next
Range(Cells(k, 10), Cells(k + 2, 16)) = ArrS
k = k + 3
Next
End Sub
A+