Petite macro en difficulte

Bonjour,

je suis debutante en VBA, je rencontre donc enormement de pb...

merci d avance pour votre aide.

macro :
1/ouvrir une nouvelle worksheet
2/selectionner tout et ajouter le format/number/ retirer les decimales
3/chercher la derniere ligne du paragraphe qui commence en c11
4/faire un vlookup en c11
5 tirer ce vlookup jusqu a la derniere ligne de ce paragraphe

voici ma catastrophe :

Sub format()

ActiveWorkbook.Sheets.Add

Dim nom As Date
nom = Date
ActiveWorkbook.Sheets.Add ActiveSheet.Name = nom

Columns("A:G").Select
Selection.NumberFormat = "0"

lastline = Sheets("nom").cell(11, 3).End(xlDown).Row

For feuille = 2 To ActiveWorkbook.Worksheets.Count

ActiveWorkbook.Sheets(feuille).Range("C11").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],ActiveWorkbook.Sheets(feuille - 1)!C[-2]:C,3,FALSE)"
ActiveWorkbook.Sheets(feuille).Range("C11").Select
Selection.AutoFill Destination:=Range("C11:C29"), Type:=xlFillDefault
Range("C11:C29").Select

Next feuille

End Sub

merci encore !

Christina