pb definir une formule à une cellule

Private Sub Worksheet_Change(ByVal Target As Range)
Dim h As Double, plage As Range, cel As Range
Static flag As Boolean
h = TimeValue("12:15")
Set plage = [B3:V3]
Set Target = Intersect(Target, plage)
If flag Or Target Is Nothing Then Exit Sub
Target.Select 'facultatif
'---recherche de la formule---
For Each cel In plage
  If cel.HasFormula Then GoTo 1
Next
MsgBox "Y a plus de formule !", 48: Exit Sub
'---remise en place de la formule---
1 flag = True
For Each Target In Target
  If Target = h Then Target.FormulaR1C1 = cel.FormulaR1C1
Next
flag = False
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim h As Double, plage As Range, cel As Range
h = TimeValue("12:15")
Set plage = [B3:V3]
Set Target = Intersect(Target, plage)
If Target Is Nothing Then Exit Sub
Target.Select 'facultatif
'---recherche de la formule---
For Each cel In plage
  If cel.HasFormula Then GoTo 1
Next
MsgBox "Y a plus de formule !", 48: Exit Sub
'---remise en place de la formule---
1 For Each Target In Target
  If Not Target.HasFormula And Target = h Then _
    Target.FormulaR1C1 = cel.FormulaR1C1
Next
End Sub