Enregistrement d'infos dans un autre onglet

Bonjour à tous et à toutes !

Voici ma problématique :

Dans un classeur Excel, je remplis plusieurs informations en violet (Voir fichier joint)

J'aimerais que quand je clique sur "enregistrer l'erreur", la ligne violette vienne se copier coller dans l'onglet "DB" puis, que le N° de rapport se copie à gauche de la ligne et la date à droite de la ligne.

Ensuite, j'aimerais que la cellule qui contient le numéro de rapport prenne +1 à chaque clique sur le bouton

Et qu'à chaque fois que je clique sur "enregistrer l'erreur" la même opération s'opère en dessous de la dernière ligne dans l'onglet "DB"

Je vous serai très reconnaissant si vous pouviez m'aider !

EDIT : la macro pour l'envoi du mail est faites, grâce un un ancien post sur ce forum.

Cordialement,

Tipsy

Je me permet un up étant donné l'édition du sujet en lui même. N'ayant pas eu de réponse à ma première question j'ai repris le même topic pour la deuxième.

Bonne soirée à tous,

Cordialement,

Tipsy

Bonjour,

essaie ainsi :

Public Sub CopyData()
Dim wb As Workbook
Dim ws As Worksheet, ws2 As Worksheet
Dim n As Long
Dim dNum As Double

    Set wb = ActiveWorkbook
    Set ws = wb.Worksheets("RAPPORT")
    Set ws2 = wb.Worksheets("DB")

    ws.Cells(6, 1).Resize(, 7).Copy

    With ws2
        n = .Cells(Rows.Count, 3).End(xlUp).Row
        dNum = WorksheetFunction.Max(.Cells(3).Resize(n))
        With .Cells(n + 1, 4)
            .PasteSpecial xlPasteValues
            .Offset(, 7).Value = ws.Cells(8, 8).Value
        End With
        .Cells(n + 1, 3) = dNum + 1
    End With

    Application.CutCopyMode = 0

End Sub

C'est parfait !

Merci !