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