sauvegarder des données provenant d'un menu déroulant

Public Sub CommandButton1_Click()
Dim F As Worksheet, NbrChmp&, Nom$, TabloReport()
Nom = "destination" ' Nom de la feuille de destination
NbrChmp = 7 '6 Zones à copier dans l'exemple + la date
ReDim TabloReport(1 To NbrChmp)
On Error Resume Next
Set F = Sheets(Nom)
On Error GoTo 0
If F Is Nothing Then Sheets.Add(After:=Sheets(Sheets.Count)).Name = Nom
With Sheets("source")
    .Activate
    TabloReport(1) = .Range("A3")
    TabloReport(2) = .Range("B3")
    TabloReport(3) = .Range("C3")
    TabloReport(4) = .Range("D3")
    TabloReport(5) = .Range("F3")
    TabloReport(6) = .Range("B6")
    TabloReport(7) = Now
    Sheets(Nom).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0). _
    Resize(1, NbrChmp) = TabloReport
End With
MsgBox "Votre base de données à été sauvegardée"
End Sub