Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, [plage1]) Is Nothing Then
Exit Sub
Application.EnableEvents = True
End If
If UCase(Target) = "X" Then Target = [K1].Offset(1, Target.Column - 2)
Application.EnableEvents = True
End Sub