Copie de colonne MACRO

Bonjour,

Ci joint ma macro.
Je copie tous les jours la Colonne A de "Feuil" vers Feuil1 Ligne1,puis Ligne 2 à J+1, L3 à J+2 etc etc
J'aimerai faire de meme avec colonne B de "Feuil" vers Feuil2 Ligne1,....
........................................colonne C de "Feuil" vers Feuil3 ......

J'ai 6 colonnes de A à F dans Feuil et donc 6 feuilles ou je sauvegarde mes données.
Parcontre j'ai récupérer cette macro qui m'inscrit la date automatiquement et j'aimerai simplement décaler cette date avec 9 Heures en moins afin d'enregistrer mes données de la veille jusqu'à 9 heure du matin maxi.



Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 12/04/2008
'
' Touche de raccourci du clavier: Ctrl+n
'
Sheets("Feuil").Select
Range("A400").Select
ActiveCell.Offset(-1, 0).Select
Do While ActiveCell.Value <= 0
ActiveCell.Offset(-1, 0).Select
Loop
If ActiveCell = "Nom" Then
Exit Sub
Else
Sheets("Feuil").Select
Range("A5", ActiveCell).Select
Selection.Copy
Sheets("Feuil1").Select
Range("C400").Select
ActiveCell.Offset(-1, 0).Select
Do While ActiveCell.Value <= 0
ActiveCell.Offset(-1, 0).Select
Loop
ActiveCell.Offset(1, 0).Select



Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

' ActiveSheet.Paste

Range("C400").Select
ActiveCell.Offset(-1, 0).Select
Do While ActiveCell.Value <= 0
ActiveCell.Offset(-1, 0).Select
Loop
ActiveCell.Offset(0, -1).Select

If ActiveCell = "" Then
ActiveCell.FormulaR1C1 = Time
ActiveCell.Offset(-1, 0).Select
Do While ActiveCell.Value = ""
ActiveCell.FormulaR1C1 = Time
ActiveCell.Offset(-1, 0).Select
Loop



Range("B400").Select
ActiveCell.Offset(-1, 0).Select
Do While ActiveCell.Value <= 0
ActiveCell.Offset(-1, 0).Select
Loop
ActiveCell.Offset(0, -1).Select

If ActiveCell = "" Then
ActiveCell.FormulaR1C1 = Date
ActiveCell.Offset(-1, 0).Select
Do While ActiveCell.Value = ""
ActiveCell.FormulaR1C1 = Date
ActiveCell.Offset(-1, 0).Select
Loop



Range("A1").Select
Sheets("Feuil").Select
Range("A1").Select
Application.CutCopyMode = False
End If
End If
End If




End Sub