Excel dupliquer des lignes

Sub Bouton2_Clic()
  Dim Plage1 As Range, Cel As Range, Col_A As Range
  Dim Wk1, Wk2, Wk3
  
  Set Wk1 = Worksheets("feuil1")
  Set Wk2 = Worksheets("feuil2")
  Set Wk3 = Worksheets("feuil3")
  
  Set Plage1 = Wk1.Range("A2:A" & Wk1.Range("A" & Rows.Count).End(xlUp).Row)
  Set Plage2 = Wk2.Range("A1:A" & Wk2.Range("A" & Rows.Count).End(xlUp).Row)
  For Each Cel In Plage1
    If Cel <> "" Then
      'DK recherche
      DK = Wk1.Range("F" & Cel.Row)
      'Recherche si DK existe
      Nbre = Application.CountIf(Plage2, DK)
      
      If Nbre = 1 Then    'DK existe
        Lig = 1
        'Recherche ligne DK
        Lig = Wk2.Columns("A").Find(DK, Wk2.Cells(Lig, "A"), , xlWhole).Row
        'Ligne DK composants
        LigC = Lig + 1
        'Tant qu'il y a un composant pour ce DK
        Do While Wk2.Cells(LigC, "C") <> ""
          'pour la dernière ligne de la colonne A
          derlig = Wk3.Range("A" & Rows.Count).End(xlUp).Row + 1
          Wk3.Range("A" & derlig) = Cel
          'DK Composants
          Wk3.Range("B" & derlig) = Wk2.Cells(LigC, "C")
          '%DK Composants
          Wk3.Range("C" & derlig) = Wk2.Cells(LigC, "E")
          LigC = LigC + 1
        Loop
      End If
    End If
  Next Cel
End Sub