Mise en forme données brutes avec code VBA

Bonjour a tous,

Je sollicite votre aide precieuse pour avoir un code vba a integrer dans une macro pour mettre en forme des données.

Ma plage de données est importée sur les colonnes a partir de AA:1 et je voudrais copier les zones jaunes et bleues dans les premieres colonnes a partr de la ligne 16 (voir fichier).

Mon probleme est que les données importées auront toujours un nombre de ligne differents et je ne sais pas comment limiter ma zone de selection puisque ca ne seras pas ma derniere ligne non vide...

Je voudrais aussi savoir comment faire pour concatener les cellules de temps AA56:AB56 avec juste les informations chiffrées...

Je ne sais pas si ma demande est claire...

Bonsoir

Ci-joint fichier.

Lancer la macro "Copier"

Cdlt.

Option Explicit
Public Sub Copier()

    Application.ScreenUpdating = False

    Worksheets(1).Select

    Range("AB7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Cells(16, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

    Range("AD7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Cells(16, 2).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

    Cells(16, 1).Select

End Sub