Ventilation dans feuilles différentes

Sub test()
Dim i As Integer
For i = 10 To Range("D65536").End(xlUp).Row
    Range(Cells(i, 1), Cells(i, Range("IV" & i).End(xlToLeft).Column)).Copy _
        Sheets(Range("D" & i).Value).Range("A65536").End(xlUp).Offset(1, 0)
Next i
End Sub

Option Explicit
Sub test()
Dim i As Integer, x As Integer
For i = 10 To Range("A65536").End(xlUp).Row
    x = Sheets(Range("D" & i).Value).Range("A65536").End(xlUp).Offset(1, 0).Row
    If x < 10 Then x = 10
    Range(Cells(i, 1), Cells(i, Range("IV" & i).End(xlToLeft).Column)).Copy _
        Sheets(Range("D" & i).Value).Range("A" & x)
Next i
End Sub

Sub test()
  Dim NomClt As Range, TrouveNom As Range
  Dim firstAddress As String
  'on récupère la liste de nom
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each NomClt In Range([D10], [D10].End(xlDown))
    If Not MonDico.Exists(NomClt.Value) Then MonDico.Add NomClt.Value, NomClt.Value
  Next
  'on désactive les macros évenementielles car pas applicable je pense
  Application.EnableEvents = False
  For Each v In MonDico
    With Sheets(v)
      'on vide tous les onglets concernés
      DerLig = .[A1].SpecialCells(xlCellTypeLastCell).Row
      .Rows("10:" & DerLig).ClearContents
      'on alimente tous les onglets concernés
      Set TrouveNom = Columns("D").Find(v, LookIn:=xlValues, lookat:=xlWhole)
      firstAddress = TrouveNom.Address
      LigSuiv = 10
      Do
        TrouveNom.EntireRow.Copy .Rows(LigSuiv)
        LigSuiv = .[D65536].End(xlUp).Row + 1
        Set TrouveNom = Columns("D").FindNext(TrouveNom)
      Loop While Not TrouveNom Is Nothing And TrouveNom.Address <> firstAddress
    End With
  Next
 
  'on résactive les macros évenementielles
  Application.EnableEvents = True
End Sub