je ne comprends pas bien ce que vous voulez copier&coller, un essai
Sub SUIVI_MUSCU_ERIKA()
Dim c
Set c = Sheets("SUIVI MUSCU").Range("B18:H43") 'source à copier
With Sheets("DONNEES ERIKA")
.Visible = True
With .Range("A464") 'l'entete avec "Date ..." juste au dessus la plage à insérer
.Offset(1).Resize(c.Rows.Count).EntireRow.Insert xlShiftDown, xlFormatFromRightOrBelow 'insérer la ligne juste en dessous avec X lignes et le format de cette ligne
c.Copy
.Offset(1).PasteSpecial Paste:=xlPasteValues
End With
End With
End Sub