Bonsoir Jacques,
Voici le code :
Dim InChange As Boolean
Private Sub ComboBox1_Change()
If Not InChange then
Inchange = True
If Mid(Combobox1, Len(Combobox1) - 1, 1) Like 'TesExclusions' Then
ComboBox1=Mid(ComboBox1, 1, Len(ComboBox1) - 1)
End If
InChange = False
End If
End Sub
Amicalement
Charly