Sub regroupement()
Application.ScreenUpdating = False
Sheets("extract").Select
'Sheets("JANVIER").Range("A3:C" & Range("A65535").End(xlUp).Row).ClearContents
Range("A2:C" & Range("A65535").End(xlUp).Row).Copy
Sheets("JANVIER").Select
Range("A3").Select
activesheet.Paste
activesheet.Range("$A$1:$C$" & Range("A65535").End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes
[A3].Select
Sheets("extract").Select
'Sheets("JANVIER").Range("A3:C" & Range("A65535").End(xlUp).Row).ClearContents
Range("A1:F" & Range("A65535").End(xlUp).Row).Copy
Sheets("JANVIER").Select
Range("AA1").Select
activesheet.Paste
Columns("AA:AF").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("JANVIER").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("JANVIER").Sort.SortFields.Add Key:=Range( _
"AE2:AE22850"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("JANVIER").Sort
.SetRange Range("AA1:AF22850")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
Application.ScreenUpdating = True
End Sub