If Target.Row = 1 Then Exit Sub
' Recopie la formule lorsque manquante
If Not Target.Offset(-1).HasFormula Then Exit Sub
' Offre la possibilite a l'utilisateur de saisir un taux de change non courrament usité
' Si la cellule monnaie est vide, la cellule taux de change est disponible pour entrée manuelle
If Target.Column = 31 Then Target.Locked = Not IsEmpty(Target.Offset(0, -4))
If Target.Column = 20 Then Target.Locked = Not IsEmpty(Target.Offset(0, -1))
If Not Target.Locked Then Exit Sub
If Cells(Target.Row, 1) = "" Then
' Efface la formule si la ligne est destinee a etre effacee
If Target.HasFormula Then Target.Value = ""
ElseIf Not Target.HasFormula Then
Target.Offset(-1, 0).Copy
Target.PasteSpecial xlPasteFormulas
End If
Beep