Option Explicit
Private Sub Save_Click() 'au clic sur "Enregistrer données"
'si "Oui" au message, les cellules seront enregistrées
Dim ShtDC As Worksheet, ShtA As Worksheet
Set ShtDC = Sheets("Datacollection")
Set ShtA = Sheets("Archive")
' Copier / coller les cellules contigues
ShtDC.Range("D1:D2").Copy
ShtA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ShtDC.Range("C5:C6").Copy
ShtA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ShtDC.Range("E5").Copy
ShtA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ShtDC.Range("B10:B13").Copy
ShtA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ShtDC.Range("E16:E23").Copy
ShtA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ShtDC.Range("B26:B37").Copy
ShtA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ShtDC.Range("D39:D40").Copy
ShtA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ShtDC.Range("C42").Copy
ShtA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ShtDC.Range("C43").Copy
ShtA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ShtDC.Range("E42").Copy
ShtA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ShtDC.Range("B48:B59").Copy
ShtA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ShtDC.Range("E65:E73").Copy
ShtA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ShtDC.Range("B78:B87").Copy
ShtA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ShtDC.Range("C78:C87").Copy
ShtA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ShtDC.Range("E78:E87").Copy
ShtA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ShtDC.Range("B92:B102").Copy
ShtA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ShtDC.Range("C92:C102").Copy
ShtA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ShtDC.Range("E92:E102").Copy
ShtA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ShtDC.Range("E105:E109").Copy
ShtA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
' Effacer les variables objet
Set ShtDC = Nothing
Set ShtA = Nothing
End Sub