Bonjour abydos,
à tester,
Sub test()
Dim pt, num, v, i As Integer, j As Integer, r As String
Dim notir As Integer
notir = 1
pt = Sheets("Feuil1").Range("F6:F13").Value
num = Sheets("Feuil1").Range("G6:G13").Value
For i = LBound(num) To UBound(num)
v = Split(num(i, 1), ",")
For j = LBound(v) To UBound(v)
If CInt(v(j)) = notir Then
Select Case pt(i, 1)
Case "ROL": r = num(1, 1) & "," & num(2, 1) & "," & num(4, 1) 'REL+ROH+BOL
Case "REL": r = num(0, 1) & "," & num(3, 1) & "," & num(5, 1) 'ROL+REH+BEL
Case "ROH": r = num(0, 1) & "," & num(3, 1) & "," & num(6, 1) 'ROL+REH+BOH
Case "REH": r = num(1, 1) & "," & num(7, 1) & "," & num(2, 1) 'REL+BEH+ROH
Case "BOL": r = num(6, 1) & "," & num(2, 1) & "," & num(5, 1) 'BOH+ROH+BEL
Case "BEL": r = num(7, 1) & "," & num(4, 1) & "," & num(1, 1) 'BEH+BOL+REL
Case "BOH": r = num(7, 1) & "," & num(4, 1) & "," & num(2, 1) 'BEH+BOL+ROH
Case "BEH": r = num(3, 1) & "," & num(5, 1) & "," & num(6, 1) 'REH+BEL+BOH
End Select
End If
Next j
Next
Debug.Print r
End Sub