Compatible ou pas ?

Public Rouet(5, 5)

Sub Crea_Matrice()
    Lig = 6
    Col = 4
    
    Rouet(0, 0) = 2
    For y = 0 To 4
        For x = 0 To 4
            If Cells(Lig + x, Col + y).Value = "" Then
                Rouet(x + 1, y + 1) = 0
            Else
                Rouet(x + 1, y + 1) = 1
            End If
        Next x
    Next y
End Sub


Sub Lect_Matrice()
    If Rouet(0, 0) <> 2 Then Call Crea_Matrice
    
    Message = "Entrez un N° de rouet"
    Title = "Démonstration"
    Defaut = "1"
    y = Val(InputBox(Message, Title, Defaut))

    Trouv = ""
    For x = 0 To 4
        If Rouet(x + 1, y) = 1 Then
            Trouv = Trouv & x + 1 & " "
        End If
    Next x
    MsgBox (y & " compatible avec " & Trouv)
End Sub

Option Explicit

Function CS(CLEF As String)
'
' Fonction créée par ROGER2327 le 16 Brumaire CCXVII (6/11/2008)
'
'
    If CLEF = "" Then CS = "": Exit Function
Dim ro, sa, fo
Dim r%, s%, f%, i%, j%, k%, n%, x1$, x2$, z$
    ro = Range("RO") ' "RO"=Tables!$D$6:$H$10
    sa = Range("SA") ' "SA"=Tables!$L$6:$V$16
    fo = Range("FO") ' "FO"=Tables!$Z$6:$AG$13
    On Error Resume Next
    r = CInt(Mid$(CLEF, 1, 1))
    s = CInt(InStr(1, "ABCDEFGHJKL", Mid$(CLEF, 2, 1)))
    f = CInt(Mid$(CLEF, 3, 1))
    On Error GoTo no
    If CLEF = r & Mid$("ABCDEFGHJKL", s, 1) & f Then
        For i = 1 To 5
            If ro(i, r) = 1 Then
                x1 = CStr(i)
                For j = 1 To 11
                    If sa(j, s) = 1 Then
                        x2 = Mid$("ABCDEFGHJKL", j, 1)
                        For k = 1 To 8
                            If fo(k, f) = 1 Then
                                z = z & x1 & x2 & CStr(k) & ", "
                                n = n + 1
                            End If
                        Next k
                    End If
                Next j
            End If
        Next i
    End If
no:
    Select Case n
        Case 0: z = "La clef " & CLEF & " n'est compatible avec aucune serrure."
        Case 1: z = "La clef " & CLEF & " est compatible avec la serrure " & Mid$(z, 1, Len(z) - 2) & "."
        Case Else: z = "La clef " & CLEF & " est compatible avec les serrures : " & Mid$(z, 1, Len(z) - 2) & "."
    End Select
    CS = z
End Function

Function SC(SERRURE As String)
    If SERRURE = "" Then SC = "": Exit Function
Dim ro, sa, fo
Dim r%, s%, f%, i%, j%, k%, n%, x1$, x2$, z$
    ro = Range("RO") ' "RO"=Tables!$D$6:$H$10
    sa = Range("SA") ' "SA"=Tables!$L$6:$V$16
    fo = Range("FO") ' "FO"=Tables!$Z$6:$AG$13
    On Error Resume Next
    r = CInt(Mid$(SERRURE, 1, 1))
    s = CInt(InStr(1, "ABCDEFGHJKL", Mid$(SERRURE, 2, 1)))
    f = CInt(Mid$(SERRURE, 3, 1))
    On Error GoTo no
    If SERRURE = r & Mid$("ABCDEFGHJKL", s, 1) & f Then
        For i = 1 To 5
            If ro([COLOR="Red"]r, i[/COLOR]) = 1 Then
                x1 = CStr(i)
                For j = 1 To 11
                    If sa([COLOR="Red"]s, j[/COLOR]) = 1 Then
                        x2 = Mid$("ABCDEFGHJKL", j, 1)
                        For k = 1 To 8
                            If fo([COLOR="Red"]f, k[/COLOR]) = 1 Then
                                z = z & x1 & x2 & CStr(k) & ", "
                                n = n + 1
                            End If
                        Next k
                    End If
                Next j
            End If
        Next i
    End If
no:
    Select Case n
        Case 0: z = "La [COLOR="Red"]serrure[/COLOR] " & SERRURE & " n'est compatible avec aucune [COLOR="Red"]clef[/COLOR]."
        Case 1: z = "La [COLOR="Red"]serrure[/COLOR] " & SERRURE & " est compatible avec la [COLOR="Red"]clef[/COLOR] " & Mid$(z, 1, Len(z) - 2) & "."
        Case Else: z = "La [COLOR="Red"]serrure[/COLOR] " & SERRURE & " est compatible avec les [COLOR="Red"]clef[/COLOR]s : " & Mid$(z, 1, Len(z) - 2) & "."
    End Select
    SC = z
End Function