enchainer deux macros identiques

[Thomas]

Bonjour,
Je rencontre une difficulté pour executer une modification sur le code suivant:
Option Explicit
Sub Planning()
Dim Col As Byte
Dim Lig As Integer

Application.ScreenUpdating = False
'Effacement des données précédentes
Sheets("Feuille de présence").Range("A5:B50").ClearContents
' Définition des variables
Lig = Sheets("Planning").Range("A63").End(xlUp).Row
Col = Application.Match(Sheets("Feuille de présence").Range("B3"), _
Sheets("Planning").Range("Dates"), 0)
' Transfert des données correspondantes à la date
Union(Range(Sheets("Planning").Cells(4, 1), Sheets("Planning").Cells(Lig, 1)), _
Range(Sheets("Planning").Cells(4, Col), Sheets("Planning").Cells(Lig, Col))).Copy
Sheets("Feuille de présence").Range("A5").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("Feuille de présence").Activate
Range("A1").Select
Application.ScreenUpdating = True
' classement par ordre alphabetique
Range("A5:B62").Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Voici mon souci , je veux que la macro " se repete "une deuxieme fois à partir de la definition des variables:Lig = Sheets("Planning").Range("A63").End(xlUp).Row pour que cette fois elle selectionne les donnees de A64 jusqu' a A84,j' ai bien essayé ceci:Lig = Sheets("Planning").Range("A64:A84").End(xlUp).Row mais ça ne va pas.
D'autre part puis je modifier également le code pour que je ne selectionne que des cellules non vides, lorsque je definis les variables
Merci d' avance pour votre aide et bonne journée à tous les fans de ce forum