Macro Excel - Mise en page

Bonjour,
Depuis hier je me creuse les méninges pour essayer de construire une macro tout seul, n'ayant jamais fait de VBA je galère un petit peu.

Je voudrais mettre en forme un rapport de plusieurs feuilles, c'est à dire:
1) Feuille1:
- Supprimer la première ligne.
- Supprimer la ligne avant la dernière ligne écrite et la ligne après la dernière ligne écrite ( ex: Si la dernière ligne est la 36, il faut supprimer la 35 et la 37).
- Supprimer la colonne 'K'

2) Feuille2:
- Supprimer la ligne avant la dernière ligne écrite et la ligne après la dernière ligne écrite ( ex: Si la dernière ligne est la 36, il faut supprimer la 35 et la 37).
- Supprimer la colonne 'K'

3)Feuille3:
- Supprimer la ligne après la dernière ligne écrite.
-Supprimer la colonne 'K'

4) Mise en page:
-J'aimerais bien que la macro renomme automatiquement mes trois feuilles.
- Que la zone d'impression soit définie en fonction de la dernière ligne. (Il est possible que des lignes se rajoutent en fonction du mois).
-Définir les marges et le pourcentage (pour que le fichier soit prêt à être imprimer directement).



Je vous laisse mon bout de code,
En espérant que quelqu'un puisse m'aider, bonne journée à tous.
Quentin.



Sheets("Feuille1").Select

Columns("K:K").Delete Shift:=xlToLeft
Rows("1:1").Delete Shift:=xlUpe

Dim Lastlig As Long
Lastlig = 1
For i = 1 To 256
If Sheets(1).Cells(65500, i).End(xlUp).Row > Lastlig Then
Lastlig = Sheets(1).Cells(6500, i).End(xlUp).Row
End If
Next i

Sheets(1).Rows(Lastlig + 1 & ":" & Lastlig + 1).EntireRow.Delete Shift:=xlUp

Sheets(1).Rows(Lastlig - 1 & ":" & Lastlig - 1).EntireRow.Delete Shift:=xl









Sheets("Feuille2").Select

Columns("K:K").Delete Shift:=xlToLeft


Dim Lastlig2 As Long
Lastlig2 = 1
For i = 1 To 256
If Sheets(1).Cells(65500, i).End(xlUp).Row > Lastlig2 Then
Lastlig2 = Sheets(2).Cells(6500, i).End(xlUp).Row
End If
Next i

Sheets(2).Rows(Lastlig2 + 1 & ":" & Lastlig2 + 1).EntireRow.Delete Shift:=xlUp

Sheets(2).Rows(Lastlig2 - 1 & ":" & Lastlig2 - 1).EntireRow.Delete Shift:=xl



Sheets("Feuille3").Select




Columns("K:K").Delete Shift:=xlToLeft

Dim Lastlig3 As Long
Lastlig3 = 1
For i = 1 To 256
If Sheets(1).Cells(65500, i).End(xlUp).Row > Lastlig3 Then
Lastlig3 = Sheets(3).Cells(6500, i).End(xlUp).Row
End If
Next i

Sheets(3).Rows(Lastlig3 + 1 & ":" & Lastlig3 + 1).EntireRow.Delete Shift:=xlUp






Je vous laisse mon bout de code,
En espérant que quelqu'un puisse m'aider, bonne journée à tous.
Quentin.