XL 2019 vba couper recherche et coller

Sub recherche()
Dim Banque$, xType As Range, Somme As Range, P As Range, n As Byte, lig As Variant, col As Variant
Banque = [B2]
Set xType = [B3:C3]
Set Somme = [B4:C4]
With Sheets("tableau")
    Set P = .[B5:R5,T5:AJ5] 'zones à adapter
    For n = 1 To 2
        lig = Application.Match(xType(n), .Columns(1), 0)
        col = Application.Match(Banque, P.Areas(n), 0)
        If IsNumeric(lig) And IsNumeric(col) Then _
            .Cells(lig, col + P.Areas(n).Column - 1) = Somme(n): Somme(n) = ""
    Next
End With
End Sub

Sub recherche()
Dim Banque$, xType As Range, Somme As Range, P As Range, n As Byte, lig As Variant, col As Variant
Banque = [B2]
Set xType = [B3:C3]
Set Somme = [B4:C4]
With Sheets("tableau")
    Set P = .[B5:R5,T5:AJ5] 'zones à adapter
    For n = 1 To 2
        lig = Application.Match(xType(n), .Columns(1), 0)
        col = Application.Match(Banque, P.Areas(n), 0)
        If IsNumeric(lig) And IsNumeric(col) And Somme(n) <> "" Then _
            .Cells(lig, col + P.Areas(n).Column - 1) = Somme(n): Somme(n) = ""
    Next
End With
End Sub

Sub Valider()
Dim Banque$, xType As Range, Somme As Range, P As Range, n As Byte, lig As Variant, col As Variant, memcol(1 To 2)
Banque = [B2]
Set xType = [B3:C3]
Set Somme = [B4:C4]
With Sheets("Tableau")
    Set P = .[B5:R5,T5:AJ5] 'zones à adapter
    For n = 1 To 2
        lig = Application.Match(xType(n), .Columns(1), 0)
        col = Application.Match(Banque, P.Areas(n), 0)
        If IsNumeric(lig) And IsNumeric(col) And Somme(n) <> "" Then _
            .Cells(lig, col + P.Areas(n).Column - 1) = Somme(n): Somme(n) = "": memcol(n) = col + P.Areas(n).Column - 1
    Next
    If memcol(1) + memcol(2) Then
        If MsgBox("Valeurs enregistrées, voulez-vous afficher le résultat ?", 4) = 7 Then Exit Sub
        P.Columns.Hidden = True
        If memcol(1) Then .Columns(memcol(1)).Hidden = False
        If memcol(2) Then .Columns(memcol(2)).Hidden = False
        .Activate
    End If
End With
End Sub

Sub Afficher_tout()
Sheets("Tableau").Columns.Hidden = False
End Sub

Sub Valider()
Dim Banque$, xType As Range, Somme As Range, P As Range, n As Byte, lig As Variant, col As Variant, mem(1 To 2, 1 To 2)
Banque = [B2]
Set xType = [B3:C3]
Set Somme = [B4:C4]
With Sheets("Tableau")
    Set P = .[B5:R5,T5:AJ5] 'zones à adapter
    For n = 1 To 2
        lig = Application.Match(xType(n), .Columns(1), 0)
        col = Application.Match(Banque, P.Areas(n), 0)
        If IsNumeric(lig) And IsNumeric(col) And Somme(n) <> "" Then _
            .Cells(lig, col + P.Areas(n).Column - 1) = Somme(n): Somme(n) = "": mem(n, 1) = col + P.Areas(n).Column - 1: mem(n, 2) = lig
    Next
    If mem(1, 1) + mem(2, 1) Then
        If MsgBox("Valeurs enregistrées, voulez-vous afficher le résultat ?", 4) = 7 Then Exit Sub
        P.Columns.Hidden = True
        P(1).CurrentRegion.Rows(3).Resize(P(1).CurrentRegion.Rows.Count - 4).Hidden = True
        If mem(1, 1) Then .Columns(mem(1, 1)).Hidden = False: .Rows(mem(1, 2)).Hidden = False
        If mem(2, 1) Then .Columns(mem(2, 1)).Hidden = False: .Rows(mem(2, 2)).Hidden = False
        .Activate
    End If
End With
End Sub

Sub Afficher_tout()
Sheets("Tableau").Columns.Hidden = False
Sheets("Tableau").Rows.Hidden = False
End Sub

Sub Valider()
Dim Banque$, xType As Range, Somme As Range, P As Range, n As Byte, lig As Variant, col As Variant, flag As Boolean
Banque = [B2]
Set xType = [B3:C3]
Set Somme = [B4:C4]
With Sheets("Tableau")
    Set P = .[B5:R5,T5:AJ5] 'zones à adapter
    For n = 1 To 2
        lig = Application.Match(xType(n), .Columns(1), 0)
        col = Application.Match(Banque, P.Areas(n), 0)
        If IsNumeric(lig) And IsNumeric(col) And Somme(n) <> "" Then _
            .Cells(lig, col + P.Areas(n).Column - 1) = Somme(n): Somme(n) = "": flag = True
    Next
    If flag Then
        If MsgBox("Valeurs enregistrées, voulez-vous afficher le résultat ?", 4) = 7 Then Exit Sub
        Masquer
        .Activate
    End If
End With
End Sub

Sub Masquer()
Dim h&, r As Range
Set r = Sheets("Tableau").[B5:R5,T5:AJ5] 'zones à adapter
h = r(1).CurrentRegion.Rows.Count - 4
If h < 1 Then Exit Sub
For Each r In r
    r.EntireColumn.Hidden = Application.CountA(r(2).Resize(h)) = 0
Next
End Sub

Sub Afficher_tout()
Sheets("Tableau").Columns.Hidden = False
End Sub