Salut le forum,
Merci @Thierry de rapeler mes efforts et je maintiens qu'avec une recherche (sans BLOUCLE QUOI!!) tu peux faire la même chose Genre
Sub Anthony()
Dim SourceA As Byte
Dim SourceB As Byte
SourceA = Rows("1:1").Find(What:="prix unit", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Column
SourceB = Rows("1:1").Find(What:="qte", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Column
Feuil1.Columns(SourceA).Copy Feuil2.Columns(1)
Feuil1.Columns(SourceB).Copy Feuil2.Columns(2)
End Sub
Bon c'était pour continuer le fil que j'avais commencé C tout
Bonne nuit
Valérie