VBA : transfert de données entre feuille

Bonjour,


Je tente actuellement de copier des colonne de la premiere feuille de mon classeur dans une feuille que j'ai créé.
Je renomme la premiere feuille "base" et je créer une feuille "resultat"

Mais je n'arrive pas à chercher les infos dans une feuille te les copier dans l'autre..

Voici mon code :

Dim i As Integer
Dim j As Integer
Dim base As Worksheet


Sub init()

Dim shresultat As Worksheet


ActiveSheet.Name = "base"


Set shresultat = Sheets.Add(After:=Sheets(Sheets.Count))
shresultat.Name = "resultat"



End Sub

Sub remplissage()
j = 1
i = 4
Set base = Worksheet("base")

ActiveSheet.Cells(j, 1).Value = base.Cells(i, 3) = base.Cells(i, 3)
resultat.Cells(j, 3).Value = base.Cells(i, 1)


i = i + 1


End Sub

Je déclare de maniere globale la variable base en tant que worksheet, et je la set dans la partie remplissage. Mais une erreur apparait : sub ou fonction non définis...