transférer le contenu sans supprimer la formule

Sub Inscriptions()
Dim lig&, i&, f As Worksheet

    Set f = Sheets("Formulaire")
    With Sheets("BdD")
        lig = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        .Cells(lig, "A") = lig - 1
        .Cells(lig, "B") = f.Range("C6")
        .Cells(lig, "C") = f.Range("C10")
        .Cells(lig, "D") = f.Range("C8")
        .Cells(lig, "E") = f.Range("C12")
        .Cells(lig, "F") = f.Range("C14")
        .Cells(lig, "G") = f.Range("C16")
        .Cells(lig, "H") = f.Range("C18")
        .Cells(lig, "I") = f.Range("C20")
       
    End With
    
    [COLOR=rgb(247, 218, 100)]For i = 6 To 32 Step 2
      f.Cells(i, 3).MergeArea.ClearContents
    Next i[/COLOR]
End Sub