Sub Client_agence()
'
' Client_agence Macro
'
' Touche de raccourci du clavier: Ctrl+Maj+D
'
Application.ScreenUpdating = False
Call Client_Fare
Range("A2:H89").Select
Range("A89").Activate
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Dim img As Object
For Each img In Worksheets(1).Shapes
img.Delete
Next
Range("A1:H1").Select
Application.CutCopyMode = True
Selection.ClearContents
Range("A1:C3").Select
Selection.ClearContents
ActiveWindow.LargeScroll Down:=1
Range("H64").Select
Selection.ClearContents
Range("H65").Select
Selection.ClearContents
Range("G62:H62").Select
End Sub