Macro à créer avec 6 critères

Sub cherche()
Dim Prem As String, Deuz As String, Troiz As String
Dim Sh As String
Dim Lig1 As Long, Lig2 As Long, Lig3 As Long, Lig4 As Long
Dim Plg1 As Range, Plg2 As Range, Plg3 As Range
'calcul du nom de la feuille
Prem = [J6] & "x"
Deuz = [K6] & "_"
Troiz = IIf([J8] = [J9], "1 PIECE", IIf([J8] < [J9], "3 PIECE", "2 PIECE"))
Sh = Prem & Deuz & Troiz
With Sheets(Sh)
    Lig1 = Application.Match([G6], .Columns(1), 1)
    Set Plg1 = .Cells(Lig1, 3).Resize(.Cells(Lig1, 1).MergeArea.Rows.Count, 1)
    Lig2 = Application.Match([J8], Plg1, 1) - 1
    Lig2 = Lig1 + Lig2
    Set Plg2 = .Cells(Lig2, 5).Resize(.Cells(Lig2, 3).MergeArea.Rows.Count, 1)
    Lig3 = Application.Match([J9], Plg2, 1) - 1
    Lig3 = Lig2 + Lig3
    Set Plg3 = .Cells(Lig3, 7).Resize(.Cells(Lig3, 5).MergeArea.Rows.Count, 1)
    Lig4 = Application.Match([N5], Plg3, 1) - 1
    Lig4 = Lig3 + Lig4
    Range("B14:Q14").Value = .Range(.Cells(Lig4, 10), .Cells(Lig4, 25)).Value
    Range("B23:T23").Value = .Range(.Cells(Lig4 + 1, 10), .Cells(Lig4 + 1, 28)).Value
End With
End Sub