Aide pour creation boucle

Bonjour le Forum,

Voici le code que j'execute pour recherche une valeur dans une feuille et ensuite copier la ligne entière dans une autre feuille, Cependant je ne sais pas créer une boucle pour que celle ci s'execute X fois, le nombre de X correspond a la valeur Nombre_de_valeurs qui se trouve en K1, et ensuite copier la ligne entiere en B2,C2 ,ainsi de suite...

Merci de votre aide

Sheets("Import_DS_Base").Select
Range("K1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(C[-10])-1"
Sheets("Menu").Select
Nombre_de_valeurs = Sheets("Import_DS_Base").Range("K1").Value
Num_de_Ligne = Sheets("Import_DS_Base").Range("B2").Value
Windows("CMD_Globale.csv").Activate
Set Res = Columns("A").Find(Num_de_Ligne)
If Not Res Is Nothing Then
Windows("Modele Cloture V5.xlsm").Activate
Sheets("Base").Select
Res.EntireRow.Copy Range("A2")
End If

Hello,

ta variable num_de_ligne commence en B2 et à chaque tour de boucle ça doit augmenter de 1 ?

B2, puis B3 ...

C'est Ca ....Numero de ligne B2, B3, B4 etc...Puis copier la ligne trouvée en A2, A3,A4 etc.. dans une autre feuille

bonjour,

ceci n'est pas testé, car vous n'avez pas fourni un exemple.

Sub Boucle()
     With Sheets("Import_DS_Base")
          With .Range("K1")
               .FormulaR1C1 = "=COUNTA(C[-10])-1"
               Nombre_de_valeurs = .Value
          End With
          Num_de_Ligne = .Range("B2").Value
     End With

     Set c = Windows("Modele Cloture V5.xlsm").Sheets("Base").Range("A1")     'cellule destination (avec offset !)

     Windows("CMD_Globale.csv").Activate
     For i = 1 To num_de_lignes
          Set Res = Columns("A").Find(i)
          If Not Res Is Nothing Then
               Res.EntireRow.Copy c.Offset(i)
          End If
     Next

End Sub