Enregistrer dans un classeur fermé

Bonjour voici mon code qui fonctionne très bien.

mais souhaiterais que la ligne enregistré dans la feuille ("A") a la suite des autres soit également enregistré dans un fichier fermé "Temps de travail",dans un classeur excel " feuille source1", dans la feuille "A".

pourriez-vous m'éclairer.

merci.

Private Sub CommandButton2_Click()

If MsgBox("Etes-vous certain de vouloir actualiser les données de la feuille de garde ?", vbYesNo, "Demande de confirmation") = vbYes Then

Set sh1 = Worksheets("liste de garde")

Set sh2 = Worksheets("A")

derLig = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1

'JOUR

sh2.Cells(derLig, 1) = sh1.Cells(1, 8) 'date

sh2.Cells(derLig, 2) = sh1.Cells(1, 4) 'date

sh2.Cells(derLig, 3) = sh1.Cells(7, 7) 'vsav1 ca

sh2.Cells(derLig, 4) = sh1.Cells(8, 7) 'vsav1 cond

sh2.Cells(derLig, 5) = sh1.Cells(9, 7) 'vsav1 equip

sh2.Cells(derLig, 6) = sh1.Cells(11, 7) 'vsav2 ca

sh2.Cells(derLig, 7) = sh1.Cells(12, 7) 'vsav2 cond

sh2.Cells(derLig, 8) = sh1.Cells(13, 7) 'vsav2 equip

sh2.Cells(derLig, 9) = sh1.Cells(15, 7) 'vsav3 ca

sh2.Cells(derLig, 10) = sh1.Cells(16, 7) 'vsav3 cond

sh2.Cells(derLig, 11) = sh1.Cells(17, 7) 'vsav3 equip

sh2.Cells(derLig, 12) = sh1.Cells(19, 7) 'vtu ca

sh2.Cells(derLig, 13) = sh1.Cells(20, 7) 'vtu cond

sh2.Cells(derLig, 14) = sh1.Cells(2, 7) 'T1

sh2.Cells(derLig, 15) = sh1.Cells(5, 3) 'S/OFFJ

sh2.Cells(derLig, 16) = sh1.Cells(7, 3) 'fpt1 ca

sh2.Cells(derLig, 17) = sh1.Cells(8, 3) 'fpt1 cond

sh2.Cells(derLig, 18) = sh1.Cells(9, 3) 'fpt1 cbat

sh2.Cells(derLig, 19) = sh1.Cells(10, 3) 'fpt1 equpbat

sh2.Cells(derLig, 20) = sh1.Cells(11, 3) 'fpt1 cbal

sh2.Cells(derLig, 21) = sh1.Cells(12, 3) 'fpt1 equipbal

sh2.Cells(derLig, 22) = sh1.Cells(14, 3) 'fpt2 ca

sh2.Cells(derLig, 23) = sh1.Cells(15, 3) 'fpt2 cond

sh2.Cells(derLig, 24) = sh1.Cells(16, 3) 'fpt2 cbat

sh2.Cells(derLig, 25) = sh1.Cells(17, 3) 'fpt2 equpbat

sh2.Cells(derLig, 26) = sh1.Cells(18, 3) 'fpt2 cbal

sh2.Cells(derLig, 27) = sh1.Cells(19, 3) 'fpt2 equipbal

sh2.Cells(derLig, 28) = sh1.Cells(21, 3) 'epa ca

sh2.Cells(derLig, 29) = sh1.Cells(22, 3) 'epa cond

'NUIT

sh2.Cells(derLig, 31) = sh1.Cells(1, 8) 'date

sh2.Cells(derLig, 32) = sh1.Cells(7, 8) 'vsav1 ca

sh2.Cells(derLig, 33) = sh1.Cells(8, 8) 'vsav1 cond

sh2.Cells(derLig, 34) = sh1.Cells(9, 8) 'vsav1 equip

sh2.Cells(derLig, 35) = sh1.Cells(11, 8) 'vsav2 ca

sh2.Cells(derLig, 36) = sh1.Cells(12, 8) 'vsav2 cond

sh2.Cells(derLig, 37) = sh1.Cells(13, 8) 'vsav2 equip

sh2.Cells(derLig, 38) = sh1.Cells(15, 8) 'vsav3 ca

sh2.Cells(derLig, 39) = sh1.Cells(16, 8) 'vsav3 cond

sh2.Cells(derLig, 40) = sh1.Cells(17, 8) 'vsav3 equip

sh2.Cells(derLig, 41) = sh1.Cells(19, 8) 'vtu ca

sh2.Cells(derLig, 42) = sh1.Cells(20, 8) 'vtu cond

sh2.Cells(derLig, 43) = sh1.Cells(2, 8) 'T1

sh2.Cells(derLig, 44) = sh1.Cells(5, 4) 'S/OFFJ

sh2.Cells(derLig, 45) = sh1.Cells(7, 4) 'fpt1 ca

sh2.Cells(derLig, 46) = sh1.Cells(8, 4) 'fpt1 cond

sh2.Cells(derLig, 47) = sh1.Cells(9, 4) 'fpt1 cbat

sh2.Cells(derLig, 48) = sh1.Cells(10, 4) 'fpt1 equpbat

sh2.Cells(derLig, 49) = sh1.Cells(11, 4) 'fpt1 cbal

sh2.Cells(derLig, 50) = sh1.Cells(12, 4) 'fpt1 equipbal

sh2.Cells(derLig, 51) = sh1.Cells(14, 4) 'fpt2 ca

sh2.Cells(derLig, 52) = sh1.Cells(15, 4) 'fpt2 cond

sh2.Cells(derLig, 53) = sh1.Cells(16, 4) 'fpt2 cbat

sh2.Cells(derLig, 54) = sh1.Cells(17, 4) 'fpt2 equpbat

sh2.Cells(derLig, 55) = sh1.Cells(18, 4) 'fpt2 cbal

sh2.Cells(derLig, 56) = sh1.Cells(19, 4) 'fpt2 equipbal

sh2.Cells(derLig, 57) = sh1.Cells(21, 4) 'epa ca

sh2.Cells(derLig, 58) = sh1.Cells(22, 4) 'epa cond

MsgBox "Le contenu de votre feuille a été sauvegardé !"

End If

End Sub