copie

Sub Macro1()
Dim ncc As String 'définit la variable ncc (Nom du Classeur Cible)
Dim cs As Workbook 'définit la variable cs (Classeur Source)
Dim cc As Workbook 'définit la variable cc (Classeur Cible)
Dim os As Object 'définit la variable os (Onglet Source)
Dim oc As Object 'définit la variable oc (Onglet Cible)
Dim dest As Range 'définit la variable dest (cellle de DESTination)

ncc = "Cible.xls" 'à adapter à ton cas
Set cs = ThisWorkbook 'définit le classeur source cs
Set os = cs.Sheets("relevés") 'définit l'onglet source os
Set cc = Workbooks(ncc) 'définit le classeur cible cc
Set oc = cc.Sheets(os.Range("A2")) 'définit l'onglet cible oc
Set dest = oc.Columns(5).Find(CStr(Day(os.Range("A4").Value)), , xlValues, xlWhole).Offset(0, 1) 'définit la cellule de destination dest
os.Range("B10:E10").Copy dest 'copy la plage B10:E10 de l'onglet source et la colle dans la cellule de destination
End Sub