Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'mettre en A1 le critère qui doit être compté
'mettre en A2 quelle partie doit être étudiée (1=épaisseur, 2=longueur, 3=couleur, 4=Nbre panneaux)
nbc = 0
crit = Range("A1").Value
n = Range("A2").Value
For Each c In Range("B1:C1000").SpecialCells(xlCellTypeConstants, 23) ' adapter la bonne plage
tableau = Split(c, " ")
If tableau(n - 1) = crit Then nbc = nbc + 1
Next
'Le résultat est placé en A3
Range("A3") = nbc
End Sub