Sub test()
'défusionner
Range("C7:D95").UnMerge
Range("M7:O95").UnMerge
'Faire le tri
ActiveWorkbook.Worksheets("Gamme HPLC").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Gamme HPLC").Sort.SortFields.Add Key:=Range( _
"C7:C95"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Gamme HPLC").Sort
.SetRange Range("B7:X95")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'Refusionner ligne
Range("C7:D95").Merge (True)
Range("M7:O95").Merge (True)
End Sub