Function trouveEntreCrochet(range)
'Stop
nlet = Len(range)
'entre = 1
For i = 1 To nlet
If Mid(range, i, 1) = "]" Then mot = Mid(mot, 1, Len(mot) - 1): entre = 0 '& Mid(range, i + 1, 1)
If Mid(range, i, 1) = "[" Or entre = 1 Then mot = mot & Mid(range, i + 1, 1): entre = 1
Next i
'trouveEntreCrochet = nlet
trouveEntreCrochet = mot
End Function