Function Gabarit(Chaine)
Application.Volatile
Boitier = Array("0201", "0402", "0603", "0805", "1206", "1210", "1812", "2010", "2512")
liste = UBound(Boitier)
Gabarit = ""
For i = 0 To liste
If Chaine Like "*" & Boitier(i) & "*" Then
Gabarit = Boitier(i)
Exit Function
End If
Next i
End Function