Bonsoir,
si j'ai bien compris :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A2"), Target) Is Nothing Then
Application.EnableEvents = False
laValeur = Target.Value
Application.Undo
Range("A2") = laValeur
Application.EnableEvents = True
End If
End Sub
C'est un code événementiel sur la surveillance de changement de valeur de cellule, s'il a lieu en A2 alors on arrête la surveillance, on met en mémoire la valeur de la cellule A2, on fait un "Undo" (on revient en arrière) ceci permet de retrouver la mise en forme initiale de la cellule A2, on inscrit la valeur de modification, puis on remet en marche la surveillance.
@ bientôt
LouReeD