Sub copyAll()
'
' copyall Macro
' Macro enregistrée le 2007-11-18 par FALARDEAU_VACHON
'
Effacer
Range("dnd638").Copy Range("coller_638")
Range("coller_638").Sort Key1:=Range("H10"), Order1:=xlAscending
End Sub
Sub Effacer()
Range("coller_638").ClearContents
End Sub