Public Sub List_Viss_Kanban()
Const Non = "o", Oui = "ý"
Dim t, v, i&, j&, ref, k&
t = Feuil4.Range("c5:as18").Value 'lecture tableau de la grille
v = Feuil1.Range("a3:b230").Value 'lecture colonne A at B de la liste visserie Kanban
For i = 1 To UBound(v): v(i, 1) = Non: Next 'raz de v
'parcours de t. Si l'élément de t est coché, on le recherche dans v et on le coche aussi
For i = 2 To UBound(t) Step 2
For j = 1 To UBound(t, 2)
If t(i - 1, j) <> "" And t(i, j) = Oui Then
ref = Right(t(i - 1, j), 12)
For k = 1 To UBound(v)
If v(k, 2) = ref Then v(k, 1) = Oui: Exit For
Next k
End If
Next j
Next i
Feuil1.Range("a3:b230").Value = v 'on réécrit V sur sa feuille
End Sub