Encore problème de selection avec pièce jointe

Re bonjour,

Comme mon premier message n'est pas clair je vous envoi une partie de mon fichier avec une partie de ma macro.
Si vous enregistre des donées dans la cellule G28, 29, 30,... la selection en I45 et I46 se modifie et avec la ligne Range("A28:" & ligne ",ai28" & ligne2)).Select cela indique la selection de la zone dans le tableau 2

Merci à vous

'Selectionne le 1er lot
If Range("I45").Value = "" Then Call Macro1
ligne = Range("I45")
ligne2 = Range("I46")
Range("A28:" & ligne ",ai28" & ligne2)).Select
Selection.Copy
Range("J48").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets("1er lot").Select

' selectionne la derniere ligne vide
Range("C65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, -1).Select

'Colle la selection
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'Enregistrer et fermer
ActiveWorkbook.Save
ActiveWorkbook.Close
Call Macro1
End Sub