Créer une boucle

[buromania]

Bjr à tous
Je reçois, chaque semaine, une feuil excel des produits dont le tarif a été modifié. Le code joint sert à récupérer ces nouveau prix dans ma feuil tarif
Cela fonctionne mais je souhaite automatiser le transfert
Très bonne journée

Private Sub CommandButton1_Click()
Feuil25.Range('a1').Select
TextBox1 = ActiveCell
Feuil1.Select
Cells.Find(What:=UserForm8.TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Feuil25.Select
Range('A1:H1').Select
Selection.Copy
Feuil1.Select
Selection.PasteSpecial Paste:=xlPasteAll, OPERATION:=xlNone, SkipBlanks:= _
True, Transpose:=False
Application.CutCopyMode = False
Feuil25.Select
Rows('1:1').Select
Selection.Delete Shift:=xlUp
Range('a1').Select

 

[Alex]

Peut tu etre plus explicite stp

 

[buromania]

Bjr à tous
j'ai une Feuil tarif et une feuil que je reçois chaque semaine de mon grossiste sur les modifications de prix
La procédure jointe se déclanche par un bouton ds un usf
Je cherche à automatiser la procédure par une boucle qui s'arrête lorsque tous les prix ont été modifiés.
en espérant avoir été plus clair
Bonne fin de journée