[XL-2003] Apporter des Modifs dans macro

Bonjour à tous,

Est-il possible de faire copier colonne F (à partir de F3) un nombre provenant de la colonne B (Cellule B3)?
Une fois copié je veux que ce nombre reste et ne soit pas effacé par le double clic sur la cellule C3 qui efface de A à E.
Merci d'avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Init  'Module posologie
If Target.Column = 1 Then Target.Value = Date: Cancel = True
  If Not Intersect(Range("C3:C" & Range("A" & Rows.Count).End(xlUp).Row), Target) Is Nothing Then
    Cancel = True
    Target = IIf(Target = "POTASSIUM", "", "POTASSIUM")
  ElseIf Not Intersect(Range("B3:B" & Range("A" & Rows.Count).End(xlUp).Row), Target) Is Nothing Then
    Cancel = True
    Target = IIf(Target = NbComprime, "", NbComprime)   'NbComprime à la place de 1 à condition que le module Posologie soit présent
  End If
End Sub