Sub AjouterAuBilan()
'
' Macro1 Macro
' Macro enregistrée le 02/07/2012 par fl170417
Dim Vfecha, Vb, Vc, Va As String
Vfecha = Range("B2").Value
Vb = Range("B3").Value
Vc = Range("B4").Value
Va = Range("B6").Value
Workbooks.Open Filename:=ThisWorkbook.Path & "\Resumen.xlsx"
derlin = ActiveSheet.Range("B65536").End(xlUp).Row
ActiveSheet.Cells(derlin + 1, 2) = Va
ActiveSheet.Cells(derlin + 1, 3) = Vb
ActiveSheet.Cells(derlin + 1, 4) = Vc
ActiveSheet.Cells(derlin + 1, 5) = Vfecha
'enregistrer et fermer le fichier bilan
ActiveWorkbook.Close SaveChanges:=True
End Sub