Macro Excel 2007

Bonjour
Je débute dans les macros, et j'ai crée une macro copier/coller une plage de données sur une autre feuil ça " marche " mais ça fait des drôles de effets LUMINAUx.
Je vous remercie d'avance
Au Secours

Voici ma Macro:

Sub TRANSFER_Á_PLAN_TOMAZ()
'
' TRANSFER À PLAN TOMAZ Macro
'

'
Sheets("PLAN TOMAZ ").Select
Range("A5:AG110").Select
Selection.ClearContents

Range("A1").Select
Sheets("Table Clients").Select
ActiveSheet.Range("$A$4:$AG$1000").AutoFilter Field:=5, Criteria1:="=X", _
Operator:=xlAnd
Range("A5:AG1000").Select
Selection.Copy
Sheets("PLAN TOMAZ ").Select
Range("A5").Select
ActiveSheet.Paste
Range("B5:B1000").Select
Selection.ClearContents
Range("A1").Select
Sheets("Table Clients").Select
Range("E5:E1000").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveSheet.Range("$A$4:$AG$1000").AutoFilter Field:=5
Range("A1").Select
End Sub