Sub Tri()
For Each ws In ActiveWorkbook.Worksheets()
If ws.Range("B4") = "Valeur_" Then
Range("B4:CI80").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End If
Next ws
End Sub