For i = 1 To USF_Options_Excel2003.ListBox3.ListCount - 1
If USF_Options_Excel2003.ListBox3.Selected(i) = True Then TitreMAcro(ItitreMacro) = USF_Options_Excel2003.ListBox3.List(i): ItitreMacro = ItitreMacro + 1 ': MsgBox (TitreMAcro(ItitreMacro))
Next i