Bonjour
Essayez la macro suivante
Sub iCopy()
Dim sh1 As Worksheet, sh2 As Worksheet, x As Integer, i As Integer
Dim Art1(), Art2(), LR As Integer, M As Integer
Set sh1 = Sheets("Bon Entree"): Set sh2 = Sheets("JOURNAL ER")
x = sh2.Cells(Rows.Count, 2).End(xlUp).Row + 1
With sh1
Application.ScreenUpdating = False
LR = .Cells(.Rows.Count, 2).End(xlUp).Row
If LR < 26 Then M = .Cells(.Rows.Count, 2).End(xlUp).Row Else M = 25
Art1 = Array("b", "e", "g", "h"):
Art2 = Array("c", "f", "h", "i")
For i = 6 To M
For n = 0 To 3
.Range(Art1(n) & i).Copy
sh2.Range(Art2(n) & x).PasteSpecial xlPasteValues
sh2.Range("b" & x) = Format(CDate(.Range("b3")), "dd-mm-yy")
Next
x = x + 1
Next
End With
Application.ScreenUpdating = True
End Sub