' On trie (temporairement) la cible pour avoir l'affichage désiré
With Igc.Sort
With .SortFields
.Clear
.Add Key:=Range("A" & Igc_Entete_Row), SortOn:=xlSortOnValues, Order:=xlAscending
' .Add Key:=Range("G" & Igc_Entete_Row), SortOn:=xlSortOnValues, Order:=xlAscending
.Add Key:=Range("F" & Igc_Entete_Row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
End With