Comment copier un tableau dans une autre feuille en VBA ?

Bonjour,

je souhaite copier coller le contenu d'une feuille dans une autre mais j'ai un peu de mal. Quelqu'un peut me dire ce qui ne va pas dans mon code ?

Sub Copie()



If SheetExists("Zusamenfassung") = False Then
MsgBox "Das Blatt Zusamenfassung existiert noch nicht. Bitte kreatieren es bevor die Makro zu spielen."
Exit Sub
End If


Worksheets("Kalles").Range(A1).ClearContents

For i = 1 To 70

Sheets("Zusamenfassung").Select
Range("Ai").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Kalles").Select
Range("Ai").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Next


End Sub



Je vous remercie d'avance :)