Déplacer l'emplacement de destination d'une copie

Bonjour à tous,

Débutant en VBA, je me suis approprié une macro destinée à copié les lignes d'un tableau (tableau dans feuille "data" contenant un critère(dans cellule J4 de ma feuille "modele") dans un tableau d'une autre feuille (appelée "modele").

Néanmoins, je souhaite que mes cellules soit insérées à partir de la ligne 11 de ma feuille "modele" (et non de la ligne 2 comme c'est le cas actuellement).

Sub test()
   Dim strSearch
   Dim rg As Range, rgF As Range
   Dim i As Integer

Worksheets("modele").Range("B2:H100").Clear
   Application.ScreenUpdating = False

strSearch = Sheets("modele").Range("J4")

   Set rg = Sheets("data").Range("A11").CurrentRegion

   For i = 1 To rg.Rows.Count
            Set rgF = rg.Rows(i).Find(strSearch, , xlValues, xlPart)

      If Not rgF Is Nothing Then
         rg.Rows(i).Copy
   rg.Rows(i).Copy Sheets("modele").Range("B60000").End(xlUp).Offset(1, 0)
         Set rgF = Nothing
      End If
   Next i

   Application.ScreenUpdating = True

End Sub

Pourriez-vous m'éclairer à ce sujet s'il vous plaît ?

Merci par avance,

Bonjour,

Néanmoins, je souhaite que mes cellules soit insérées à partir de la ligne 11 de ma feuille "modele" (et non de la ligne 2 comme c'est le cas actuellement).

selon la macro les données sont collées sur la feuille "modele" en cellule Bx,

x étant la première ligne vide de la colonne B, en partant de la ligne 60000 et en remontant

rg.Rows(i).Copy Sheets("modele").Range("B60000").End(xlUp).Offset(1, 0)

si vous voulez que les données soit collées en cellule B11

vous n'avez qu'à mettre une valeur en cellule B10

Bonjour Sabv,

Merci beaucoup pour ton aide. Sujet résolu