Il faudra être vigilant sur les Catégories : respect de l'orthographeOption Explicit
Sub Tri()
Application.ScreenUpdating = 0
ThisWorkbook.Sheets("CoursePointHFTC").Unprotect "rollers"
Range("B14:J49").Sort Key1:=Range("E14"), Order1:=xlDescending, Key2:=Range( _
"J14"), Order2:=xlAscending, Header:=xlNo
Range("B13").Select
yaMasque
End Sub
Sub yaMasque()
Dim yaC As Range
Application.ScreenUpdating = 0
For Each yaC In ThisWorkbook.Sheets("CoursePointHFTC").Range("E14:E49")
ThisWorkbook.Sheets("CoursePointHFTC").Unprotect "rollers"
If IsEmpty(yaC) Then yaC.EntireRow.Hidden = True
ThisWorkbook.Sheets("CoursePointHFTC").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="rollers"
Next
End Sub
Option Explicit
Sub Tri()
Application.ScreenUpdating = 0
ThisWorkbook.Sheets("CoursePointHFTC").Unprotect "rollers"
Range("B14:J49").Sort Key1:=Range("E14"), Order1:=xlDescending, Key2:=Range( _
"J14"), Order2:=[B][COLOR=Red]xlDescending[/COLOR][/B], Header:=xlNo
Range("B13").Select
yaMasque
End Sub
Sub yaMasque()
Dim yaC As Range
Application.ScreenUpdating = 0
For Each yaC In ThisWorkbook.Sheets("CoursePointHFTC").Range("E14:E49")
ThisWorkbook.Sheets("CoursePointHFTC").Unprotect "rollers"
If IsEmpty(yaC) Then yaC.EntireRow.Hidden = True
ThisWorkbook.Sheets("CoursePointHFTC").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="rollers"
Next
End Sub
Sub Tri()
Application.ScreenUpdating = 0
ThisWorkbook.Sheets("CoursePointHFTC").Unprotect "rollers"
Range("B13:K49").Sort Key1:=Range("E13"), Order1:=xlDescending, Key2:=Range( _
"J13"), Order2:=xlDescending, Header:=xlNo
Range("B13").Select
yaMasque
End Sub
Sub yaMasque()
Dim yaC As Range
Application.ScreenUpdating = 0
For Each yaC In ThisWorkbook.Sheets("CoursePointHFTC").Range("F13:F49")
ThisWorkbook.Sheets("CoursePointHFTC").Unprotect "rollers"
If IsEmpty(yaC) Then yaC.EntireRow.Hidden = True
ThisWorkbook.Sheets("CoursePointHFTC").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="rollers"
Next
End Sub
=SI(B13="";"";SOMMEPROD((E$13:E$49=E13)*(I$13:I$49[COLOR=Red][B]>=[/B][/COLOR]I13)))
Sub Tri()
Application.ScreenUpdating = 0
ThisWorkbook.Sheets("CoursePointHFTC").Unprotect "rollers"
Range[COLOR=Red][B]("B13:K49")[/B][/COLOR].Sort Key1:=Range("E13"), Order1:=xlDescending, Key2:=Range( _
"I13"), Order2:=xlDescending, Header:=xlNo
Range("B12").Select
yaMasque
End Sub