Bonsoir Maryv, Xmenpl
Sur la base du fichier fourni par Xmenpl :
Sub copy()
Dim x, Entetes, e, n As Byte
Entetes = Array("article", "point de vente", "client", "qté")
n = 6
With Sheets("Feuil1").Cells(1).CurrentRegion
x = Application.Match(Entetes, .Rows(1), 0)
For Each e In x
If IsNumeric(e) Then
.Columns(e).copy .Columns(n)
n = n + 1
End If
Next
End With
End Sub
klin89