Sub ordre()
Dim C, COL&, Sh As Worksheet
Application.ScreenUpdating = False
COL = 3
For Each Sh In Sheets(Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J"))
With Sh
For Each C In Array("France", "Canada", "USA", "Angleterre", "Brésil", "Allemagne", "Russie", "Portugal", "Espagne", "Norvège", "Soudan", "Australie")
If .Cells(4, COL) <> C Then
.Columns(Application.Match(C, .[4:4], 0)).Cut
.Cells(1, COL).Insert Shift:=xlToRight
End If
COL = COL + 1
Next
End With
COL = 3
Next...