Affecter une formule à une cellule

' Cette routine ne fonctionne que si lors de la validation(entrée) on passe à la cellule suivante
' Événement déclenché à la modification d'une cellule
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim celAdr As String    ' l'adresse de la cellule à modifier
    ' affectation
    celAdr = "$B$2"
    ' si la cellule modifié est celle voulu et que c'est un autre cellule qui est sélectionnée
    If Target.Address = celAdr And ActiveCell.Address <> celAdr Then
        ' Sélection de la cellule a modifier (pour éviter de boucler à nouveau.
        Me.Range(celAdr).Select
        ' Application de la formule
        Me.Range(celAdr) = Target.Value * constante
    ' fin si
    End If
End Sub