Dim Tbl As Range
Application.ScreenUpdating = False
''Effacement des anciennes données du tableau
Worksheets("ADMIN").Range("A1", "E32").ClearContents
Worksheets("KRE02").Range("A2", "E33").Copy
Worksheets("ADMIN").Range("A1").Select
ActiveSheet.Paste
Application.ScreenUpdating = False
Worksheets("P5").Range("Z2", "AD33").ClearContents
Worksheets("KRE02").Range("A2", "E33").Copy
[COLOR=Green][B]Worksheets("P5").Activate
Range("Z2").Select
ActiveSheet.Paste[/B][/COLOR]
End Sub