Sub Macro_A()
Dim i&, v(), w()
With Feuil3.Range("A1"): v = .Resize(.Parent.Cells(.Parent.Rows.Count, .Column).End(xlUp).Row - .Row + 1, .Column).Value: End With
With Feuil1
.Unprotect Password:=""
ReDim w(1 To 8, 1 To (UBound(v) - 1) \ 8 + 1)
For i = 1 To UBound(v): w((i - 1) Mod 8 + 1, (i - 1) \ 8 + 1) = v(i, 1): Next
With .Range("A1"): .CurrentRegion.ClearContents: .Resize(UBound(w, 1), UBound(w, 2)).Value = w: End With
ReDim w(1 To 8, 1 To 3 * ((UBound(v) - 1) \ 24 + 1))
For i = 1 To UBound(v): w(((i - 1) \ 3) Mod 8 + 1, (i - 1) Mod 3 + 1 + 3 * ((i - 1) \ 24)) = v(i, 1): Next
With .Range("G24"): .CurrentRegion.ClearContents: .Resize(UBound(w, 1), UBound(w, 2)).Value = w
End With
.Protect Password:="", UserInterfaceOnly:=True
End With
End Sub
Sub Macro_B()
Dim i&, v(), w()
With Feuil3.Range("A1"): v = .Resize(.Parent.Cells(.Parent.Rows.Count, .Column).End(xlUp).Row - .Row + 1, .Column).Value: End With
With Feuil2
.Unprotect Password:=""
ReDim w(1 To (UBound(v) - 1) \ 3 + 1, 1 To 3)
For i = 1 To UBound(v): w((i - 1) \ 3 + 1, (i - 1) Mod 3 + 1) = v(i, 1): Next
With .Range("A1"): .CurrentRegion.ClearContents: .Resize(UBound(w, 1), UBound(w, 2)).Value = w: End With
ReDim w(1 To 8 * ((UBound(v) - 1) \ 24) + 8, 1 To 3)
For i = 1 To UBound(v): w((i - 1) Mod 8 + 1 + 8 * ((i - 1) \ 24), ((i - 1) \ 8) Mod 3 + 1) = v(i, 1): Next
With .Range("K5"): .CurrentRegion.ClearContents: .Resize(UBound(w, 1), UBound(w, 2)).Value = w: End With
.Protect Password:="", UserInterfaceOnly:=True
End With
End Sub