Sub essai2()
If IsEmpty(Feuil3.Range("H5")) Then MsgBox "Il faut entrer au moins un acte...": Exit Sub
Feuil3.Range("B5:L8").Copy
Feuil5.Range("B" & Rows.Count).End(xlUp)(2).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub