Sub Macro1()
Dim cs As Workbook 'déclare la variable cs (Classeur Source)
Dim cc As Workbook 'déclare la variable cc (Classeur Cible)
Dim mois As String 'déclare la variable mois
Dim os As Object 'déclare la variable os (Onglet Source)
Dim oc As Object 'déclare la variable oc (Onglet Cible)
Dim r As Range 'déclare la variable r (Recherche)Set cs = ThisWorkbook 'définit le classeur source
Workbooks.Open Filename:= _
"C:\caisse.xlsx" 'ouvre le classeur "caisse.xlsx"
Set cc = Workbooks("caisse.xlsx") 'définit la classeur cible
Set os = cs.Sheets("Feuil1") 'définit l'onglet source (à adapter à ton cas)
mois = Format(os.Range("D1").Value, "mmmm") 'définit le mois
Set oc = cc.Sheets(mois) 'définit l'onglet cible
Set r = oc.Columns(1).Find(os.Range("D1"), , xlValues, xlWhole) 'recherche la date dans la colonne A de l'onglet cible
'si la date existe'place la valeur de A1 dans la colonne b de l'onglet cible
If Not r Is Nothing Then r.Offset(0, 1).Value = os.Range("A1").Value
cc.Save 'sauve la classeur cible
cc.Close 'fermela classeur cible
End Sub