Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("A:A") 'Si modification colonne A
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
End If
[BaseFormat].Copy: [Base].PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub