Bonsoir,
En PJ ton fichier agrémenté d'une petite macro et d'un bouton.
Si tu cliques sur le bouton 'transfert' de ta feuille Agenda,
tous les RDV sont transférés dans Historique, et supprimés d'Agenda.
Ci dessous la macro :
Sub transfert()
Set Org = ThisWorkbook.Sheets('Agenda')
Set Dest = ThisWorkbook.Sheets('Historique_')
L_Org = Org.Range('B65536').End(xlUp).Row
L_Dest = Dest.Range('B65536').End(xlUp).Row + 1
Org.Range('B10:C' & L_Org).Copy Destination:=Dest.Range('B' & L_Dest)
Org.Range('B10:C' & L_Org).ClearContents
End Sub
Bonne continuation, [file name=Suivi Agenda_20050321185949.zip size=9946]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Suivi Agenda_20050321185949.zip[/file]