'Formule qui definit l'ASM automatiquement avec l'EMAT8
Private Sub EMAT8_Change()
Set f = Sheets("base")
Me.ASM.Clear
For Each c In f.Range("A2:A" & f.[A65000].End(xlUp).Row)
If c = Me.EMAT8 Or Me.EMAT8 = "*" Then
Me.ASM.AddItem c.Offset(0, 1)
End If
Next c
'Me.ASM.ListIndex = 0
End Sub