Copier des lignes avec condition

Mettre les classeurs sans données confidentielles en pièce jointe sur « mon-partage.fr »
et faire un clic droit-coller le raccourci  dans votre message 

Option Explicit
Const Mot As String = "A rajouter"
'----------------------------------------------------------------
Sub mettre_a_jour()
Dim Derlig As Integer, Nbre As Integer, T_test, T_piece
Dim Cptr As Integer, Index As Integer, Col As Byte
Dim Chemin As String, Ligvid As Integer

With Sheets("EQPT POST PR MODULE METH")
'-----------------------------------------initialisations
    Derlig = .Columns("U").Find(what:=Mot, searchdirection:=xlPrevious).Row
    Nbre = Application.CountIf(.Columns("U"), Mot)
End With
    'tableau des "a rajouter"
    T_test = Range("A2:U" & Derlig)
    'détermination du tableau des données à rajouter dans le classeur cible
    ReDim T_piece(1 To Nbre, 1 To 21)
    
'--------------------------------------------traitement
    For Cptr = 1 To UBound(T_test)
        If Index = Nbre Then: Exit For
        If T_test(Cptr, 21) = Mot Then
            Index = Index + 1
            For Col = 1 To 20
                T_piece(Index, Col) = T_test(Cptr, Col)
                T_piece(Index, 21) = "A JOUR"
            Next
        End If
    Next
    
'-------------------------------------------restitution
    Chemin = ThisWorkbook.Path
    Workbooks.Open (Chemin & "\" & "Classeur suivi forum.xlsx")
    
    With Sheets("EQPT POST PR MODULE METH")
        Ligvid = Columns("A").Find(what:="", after:=.Range("A1")).Row
        .Cells(Ligvid, "A").Resize(Nbre, 21) = T_piece
        .Range(.Cells(Ligvid, "A"), .Cells(Ligvid + Nbre, "U")).Borders.Weight = xlThin
     End With
    
    ThisWorkbook.Saved = True 'ferme le classeur source
End Sub

• ad taleur