Transfert de plusieurs plages de données avec condition

Option Explicit

' la macro s'applique dans toute feuille active

Const cotes = 1   ' colonne n° test
Const codeb = 3   ' colonne debut des données
Const lgtra = 8   ' nombre de colonne des "tranches" d'essais
Const nbtra = 7   ' nombre maxi de tranche d'essais
Const lideb = 10  ' première ligne à traiter

Public Sub OK()
Dim li As Long, lifin As Long, co As Long, plage As Range, k As Long
Dim t
t = Timer
' desactive la maj de l'ecran
Application.ScreenUpdating = False
' depuis la feuille active
With ActiveSheet
  ' ligne de fin de la colonne cotes
  lifin = .Cells(Rows.Count, cotes).End(xlUp).Row
  ' on boucle sur les lignes en commençant par la dernière et en remontant
  For li = lifin To lideb Step -1
    ' on boucle sur les tranches en partant de la dernière voir (nbtra-k)
    For k = 1 To nbtra - 1
      ' si la première cellule de la tranche n'est pas vide
      If .Cells(li, codeb + lgtra * (nbtra - k)) <> "" Then
        ' insertion d'une ligne avant la ligne li+1
        Rows(li + 1).Insert
        ' selection de la tranche à copier
        Set plage = .Cells(li, codeb + lgtra * (nbtra - k)).Resize(1, lgtra)
        ' copie de la plage
        plage.Copy .Cells(li + 1, codeb)
      End If
    Next k
  Next li
End With
' ré-activation de l'affichage
Application.ScreenUpdating = True
MsgBox "temps mis " & Timer - t & "sec"
End Sub

Public Sub RecuperationDernieresValeurs()
Dim essai As String, coess As Long
Dim li As Long, lifin As Long, co As Long, cofin As Long, cocodeb As Long
Application.ScreenUpdating = False
With ActiveSheet
  ' colonne début des valeurs après la colonne 59 = 3+7*8
  cocodeb = codeb + nbtra * lgtra
  ' dernière ligne de la colonne A
  lifin = .Cells(Rows.Count, cotes).End(xlUp).Row
  ' boucle sur les lignes 
  For li = lideb To lifin
    ' dernière colonne renseignée de la ligne li
    cofin = .Cells(li, Columns.Count).End(xlToLeft).Column
    ' si cofin >= 59 c'est qu'il y a des valeurs à récupérer
    If cofin >= cocodeb Then
      ' boucle sur les colonnes de récupération
      For co = cocodeb To cofin
        ' si la cellule(li,co) n'est pas vide, c'est une valeur à récupérer
        If .Cells(li, co) <> "" Then
          ' essai = entête de la colonne (en ligne liess)
          essai = .Cells(liess, co)
          ' coess = première colonne de essai dans la ligne li
          coess = .Rows(liess).Find(essai, , , xlWhole).Column
          ' copie de la valeur récupérée dans cette colonne
          .Cells(li, co).Copy .Cells(li, coess)
        End If
      Next co
    End If
  Next li
End With
Application.ScreenUpdating = True
End Sub