Copier cellule à partir d'une table de calcul

Bonjour à tous,

Je cherche à copier une série de cellule dans un tableau se situant sur une autre feuille du classeur, après avoir rentré les dimensions de mon produit.

Je m'explique, je remplie les cellules C13, C14, C15 et C16 et depuis les cellules C18, C19, C20, C21, C22, C23, C24, C25/26 je choisis les divers options.

J'ai une ligne qui récapitule toutes mes cellules (cellule N6 à Y6). (Cette ligne ne doit pas être pas être touché)

Une fois que j'ai tous complété j'aimerais que lorsque l'on clique sur le bouton toutes ces cellules se copient dans un tableau bien organisé sur la deuxième feuille et que toute les cellules à remplir (soit C13, C14, C15 et C16) se remettent à 0, et que les cellules C18, C19, C20, C21, C22, C23, C24, C25 se remettent à l'origine (soit C18 : NON, C19 : NON, C20 : NON, C21 :NON, C22 : NON , C23 : OUI, C24 : NON, C25/26 : NON).

Bien évidemment lorsque je clique sur le bouton une nouvelle fois, après avoir remplis et choisi toutes mes options, le contenu de ma cellule se met dessous la précédente sur l'autre feuille.

J’espère avoir été assez précis dans ma demande.

Merci d'avance a tous.

Bonsoir et bienvenue

Sub Copier()
Dim Derlg As Long
Derlg = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
Range("C13:C17,C19:C24,C26:C27").Copy
    Sheets("Feuil2").Range("A" & Derlg).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False

Range("C13:C17") = 0
Range("C19:C24,C26") = "NON"
Range("C25") = "OUI"
End Sub

Amicalement

Nad