Simplification macro

With Sheets("Feuil2")
    .Columns(1).ClearContents
    .Range("A3").Value = "DATE"
    For j = 3 To Sheets("Feuil3").Cells(2, Sheets("Feuil3").Columns.Count).End(xlToLeft).Column
        For i = 1 To 4
            Sheets("Feuil3").Cells(2, j).Copy .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0)
        Next i
    Next j
End With

Sub hihi()

Application.ScreenUpdating = False

Sheets("Feuil2").Activate
Columns(1).ClearContents

Range("A3").Value = "DATE"
Sheets("Feuil3").Activate
Range("C2").Activate

For j = Sheets("Feuil3").Range("C2").Column To Sheets("Feuil3").Range("IV2").End(xlToLeft).Column
    
    Sheets("Feuil3").Activate
    Cells(2, j).Copy
    Sheets("Feuil2").Activate
    Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
    
    Sheets("Feuil3").Activate
    Cells(2, j).Copy
    Sheets("Feuil2").Activate
    Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
    
    Sheets("Feuil3").Activate
    Cells(2, j).Copy
    Sheets("Feuil2").Activate
    Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
    
    Sheets("Feuil3").Activate
    Cells(2, j).Copy
    Sheets("Feuil2").Activate
    Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Next j

ScreenUpdating = true
End Sub

Sub macro 2()
[COLOR="Green"]'Permet de réutiliser simplement le code pour l'appliquer à d'autres feuilles
'il suffit d'adapter ce qui est en bleu[/COLOR]
Dim fs As Worksheet:        Set fs = [COLOR="Blue"]Sheets("Feuil3")[/COLOR]
Dim fd As Worksheet:        Set fd = [COLOR="Blue"]Sheets("Feuil2")[/COLOR]
Application.ScreenUpdating = False
With fd
    .Columns(1).ClearContents
    .Range("A3").Value = "DATE"
    For j = 3 To fs.Cells(2, fs.Columns.Count).End(xlToLeft).Column
        For i = 1 To 4
            fs.Cells(2, j).Copy .[A66536].End(xlUp).Offset(1)
        Next i
    Next j
End With
Application.ScreenUpdating = True
End Sub

For i = 1 To 4
    fs.Cells(2, j).Copy .[A66536].End(xlUp).Offset(1)
Next i