Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ws As Worksheet
Dim derlgn As Byte
Dim maplage As Range
Set Ws = Worksheets('Feuil1')
Application.ScreenUpdating = False
With Ws
derlgn = .Range('A100').End(xlUp).Row 'recherche la dernieère a partir de la ligne 100
Set maplage = .Range('A2:A' & derlgn) 'définis la plage
If Not Intersect(Target, maplage) Is Nothing Then 'si la modification est dans la plage alors
'trier la plage sinon rien
maplage.Sort Key1:=.Range('A2'), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End With
Application.ScreenUpdating = True
End Sub