XL 2013 Copier coller X fois - uniquement la premiére ligne de mon ficheir

Private Sub Worksheet_Change(ByVal Target As Range)

Dim WsS As Worksheet, WsC As Worksheet
Dim j As Integer, i As Integer
                
If Target.Column = 3 And Target.Row = 2 Then
   
    Set WsS = Worksheets("Actions") 'Feuille source
    Set WsC = Worksheets("Employee") 'Feuille cible
    For j = 2 To WsS.Range("A" & Rows.Count).End(xlUp).Row
        If Cells(j, 8) = "Other" Then Exit Sub:

        For i = 1 To WsS.Cells(j, 3).Value
        
            WsS.Cells(j, 1).Copy Destination:=WsC.Range("A" & WsC.Range("A" & Rows.Count).End(xlUp).Row + 1)
            WsS.Cells(j, 2).Copy Destination:=WsC.Range("B" & WsC.Range("B" & Rows.Count).End(xlUp).Row + 1)
            WsS.Cells(j, 3).Copy Destination:=WsC.Range("H" & WsC.Range("H" & Rows.Count).End(xlUp).Row + 1)
            WsS.Cells(j, 4).Copy Destination:=WsC.Range("I" & WsC.Range("I" & Rows.Count).End(xlUp).Row + 1)
            WsS.Cells(j, 5).Copy Destination:=WsC.Range("J" & WsC.Range("J" & Rows.Count).End(xlUp).Row + 1)
            WsS.Cells(j, 6).Copy Destination:=WsC.Range("K" & WsC.Range("K" & Rows.Count).End(xlUp).Row + 1)
            WsS.Cells(j, 7).Copy Destination:=WsC.Range("L" & WsC.Range("L" & Rows.Count).End(xlUp).Row + 1)
        Next i
    Next j
    Set WsC = Nothing: Set WsS = Nothing
    
End If
End Sub

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

'Forumeur : Piwwwa
'Auteur : TheBenoit59
'Lien : http://www.excel-downloads.com/forum/242920-copier-coller-x-fois-uniquement-la-premiere-ligne-de-mon-ficheir.html

Dim n As Integer, l As Integer 'Variable du nombre de copie "n", variable de la ligne "l"
Dim fActions As Worksheet, fEmployee As Worksheet 'Variable des feuilles
Dim dl As Long 'Variable dernière ligne du classeur employée

Set fActions = ThisWorkbook.Sheets("Actions"): Set fEmployee = ThisWorkbook.Sheets("Employee")
dl = fEmployee.[a65000].End(xlUp).Row + 1

If Not Application.Intersect(Target, fActions.Range("c2:c3")) Is Nothing Then  'On cherche s'il existe une modification en C2 ou C3
    l = Target.Row
        With fActions
        If .Cells(l, 8).Value <> "Training" Then Exit Sub 'Si la valeur en colonne H est différente de Training on quitte la procédure
            n = .Cells(l, 3).Value 'On détermine le nombre de copies
                .Range(.Cells(l, 1), .Cells(l, 2)).Copy fEmployee.Cells(dl, 1).Resize(n) 'On copie et on colle selon le nombre "n"
                .Range(.Cells(l, 3), .Cells(l, 7)).Copy fEmployee.Cells(dl, 8).Resize(n)
                Application.CutCopyMode = False 'On vide le presse-papier
        End With
Target.Select 'Pour se replacer sur la cellule modifiée
End If
End Sub