Private Sub ComboBox2_afterupdate()
' If ComboBox2.ListIndex = -1 Then Exit Sub
' On Error Resume Next
' Application.Run ComboBox2
' If Err.Number > 0 Then
' MsgBox "Macro " & ComboBox2 & " inexistante"
' End If
aff = ComboBox2.Value
aff = "Module1." & aff
Application.Run (aff)
End Sub