Copier des données à la fin d'un tableau sur un autre onglet

Bonjour,

J'aimerai qu'à chaque fois que je valide un BL, les articles de celui-ci apparaissent en sortie de stock sur un autre onglet.
Je souhaite plus précisément copier les données des cellules A18 à A38 et E18 à E38 d'un onglet "BL", sur la dernière ligne vide d'un tableau dans les colonnes C et F d'un onglet "Entrées et Sorties".

J'ai testé plusieurs codes mais je ne parviens jamais au résultat escompté...

Ma dernière tentative est la suivante:

Sub Stocks()

Sheets("Entrées et Sorties").Select

Range("C" & Rows.Count).End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=IF(BL!R[11]C[-2]="""","""",BL!R[11]C[-2])"
ActiveCell.Select
Selection.Copy

ActiveCell.Offset(0, 2).Select
ActiveCell.FormulaR1C1 = "=IF(RC[-3]="""","""",BL!R[11]C[-1])"
ActiveCell.Application.CutCopyMode = False

Selection.EntireRow.Select
Selection.Copy
Range(ActiveRow, ActiveRow.End(xlUp)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Columns("C:F").Select
Selection.Copy
Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub



Merci d'avance pour votre aide!