Macro qui ne fonctionne pas...correctement...

Sub DoublerLesPlatsPdt()

Dim cel As Range 'déclare la variable cel (Cellule)
Dim DL As Long 'déclare la variable dl (Dernière Ligne)
Dim fin As String 'déclare la variable fin
Dim deb As String 'déclare la variable deb (début)

Application.ScreenUpdating = False

Columns("F:F").Replace What:="+pdt", Replacement:="+ pdt", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

'boucle sur toutes les cellule éditées de la colonne F
For Each cel In Range("F2:F" & Cells(65536, 6).End(xlUp).Row)
    cel.Value = Trim(cel.Value) 'Enlever les espaces inutiles à la fin
    fin = Right(cel.Value, 5) 'définit la varaible fin
    If fin = "+ pdt" Then 'condition : si fin = " + pdt"
        deb = Left(cel.Value, Len(cel.Value) - 6) 'définit la variable deb
        DL = Cells(65536, 1).End(xlUp).Row + 1 'définit la dernière ligne
        Range(Cells(cel.Row, 1), Cells(cel.Row, 6)).Copy Range(Cells(DL, 1), Cells(DL + 1, 1)) 'copie la ligne de cel en dernier
        Cells(DL, 6).Value = deb 'modifie la valeur de la cellule en colonne F
        Cells(DL + 1, 6).Value = fin 'modifie la valeur de la cellule en colonne F
        cel.Offset(0, -2).Value = "annulé" 'écrit "annulé" dans la colonne D
    End If 'fin de la condition
Next cel 'prochaine cellule de la boucle
End Sub

Sub test()
Dim c As Range, p As String, i As Byte
With Sheets("RECAPS").Range("F2", Range("F65536").End(xlUp))
    Set c = .Find("+pdt", , xlValues, xlPart, , , False)
    If Not c Is Nothing Then
        p = c.Address
        Do
            For i = 1 To 2
                c.Offset(0, -5).Resize(, 5).Copy Range("A65536").End(xlUp)(2)
                If i = 1 Then Range("F65536").End(xlUp)(2) = Replace(c, "+pdt", "") _
                    Else: Range("F65536").End(xlUp)(2) = "+pdt"
            Next i
            Set c = .FindNext(c)
        Loop While c.Address <> p
    End If
End With
End Sub

fin = Right(cel.Value, 6) 'définit la varaible fin
        If fin = "+ pdt" Then 'condition : si fin = " + pdt"

For Each cel In .Range("F2:F" & .Cells(Application.Rows.Count, "F").End(xlUp).Row)