Copie de données d'une feuille excel vers une autre avec conditi

Mettre le classeur 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
'------------------------------------------------------------------------------
Sub copier_ss_condition()
Dim Derlig As Integer, T_nom, Idx As Integer, D_nom As Object, T_out
Dim T_psa, T_in
Dim Name As String, Cptr As Integer, Col As Byte

'-------------------------initialisations
    Application.ScreenUpdating = False
    With Sheets("Domaines")
        Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
        .Range("C2:H" & Derlig).Clear
        T_nom = .Range("A2:A" & Derlig)
    End With
    Set D_nom = CreateObject("scripting.dictionary")
    For Idx = 1 To UBound(T_nom)
        If Not D_nom.exists(T_nom(Idx, 1)) Then: D_nom.Add T_nom(Idx, 1), Idx
    Next
    ReDim T_out(1 To D_nom.Count, 1 To 6)
    With Sheets("Référentiel Applications PSA")
        Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
        T_psa = .Range("A2:A" & Derlig)
        T_in = .Range("C2:H" & Derlig)
    End With
'------------------------------------------------traitement
    For Cptr = 1 To UBound(T_psa)
        Name = T_psa(Cptr, 1)
        If D_nom.exists(Name) Then
            Idx = D_nom.Item(Name)
            For Col = 1 To 6
                T_out(Idx, Col) = T_in(Cptr, Col)
             Next
        End If
    Next
'-----------------------------restitution
    With Sheets("Domaines").Range("C2:H" & D_nom.Count + 1)
        .Value = T_out
        .VerticalAlignment = xlTop
        .WrapText = True
        .Borders.Weight = xlThin
    End With
    Sheets("Domaines").Activate
End Sub