Sub Ecraser()
Jourcherché = Sheets("Donnée").Range("A2")
With Sheets("Decembre22")
Set trouve = .Range("A:A").Find(Jourcherché, LookIn:=xlValues) 'on cherhce le jour dans la colonne A
If Not trouve Is Nothing Then 'si on l'a trouvé,
.Range("B" & trouve.Row).Resize(1, 10) = Sheets("Donnée").Range("B2:K2").Value 'on copie les données de B2K2 à la ligne (trouve.row)
End If
End With
End Sub