'On trie sur la colonne C
Range("B1:J15").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'On recupere les 3 premiers
Client1 = Range("B2").Value
Client2 = Range("B3").Value
Client3 = Range("B4").Value
'On trie sur la colonne D
Range("B1:J15").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'On recupere les 3 premiers
Commande1 = Range("B2").Value
Commande2 = Range("B3").Value
Commande3 = Range("B4").Value
'[...]code a recopier pour les colonnes suivantes[...]
'On attribue les valeurs
With Worksheets("Podium")
.Range("F4").Value = Client1
.Range("E5").Value = Client2
.Range("G5").Value = Client3
.Range("F9").Value = Commande1
.Range("E10").Value = Commande2
.Range("G10").Value = Commande3
'[...]code a recopier pour les podiums suivants[...]
End With
End Sub