Sub recopie()
Const auxOubliettes = 1
On Error Resume Next
lig = Application.Match([B3], Sheets("data").[B1:B32], 0)
If IsError(lig) Then MsgBox "date non trouvée": Exit Sub
If Sheets("data").Cells(lig, 3) <> "" Then prudence = MsgBox("Des données figurent déjà en regard de cette date. Voulez-vous les remplacer?", vbOKCancel)
If prudence = auxOubliettes Then [C3].Resize(1, 2).Copy Sheets("data").Cells(lig, 3)
End Sub