Excel_VBA_Attribut non valide

Bonjour,

Je suis debutante sur VBA, et j'ai besoin de creer une liste dans un formulaire. Ma liste s'appelle ListBox1, et contient 655 elements. Je souhaite que les elements selecionnes aille se mettre a un endroit preci de ma feuille Excel.

Ja'i un message d'erreur me disant que l'attribut n'est pas valide (Erreur 2147024809 (80070057)), et je n'arrive pas a comprendre ou est l'erreur.

Merci de votre aide, vraiment...

anais


Ma macro ressemble a ca:

Private Sub CommandButton1_Click()
'Efface les donnees ICP deja presentes en colonne H a partir de la ligne 42
'D, ligne selectionnee ds le userform, E la ligne de la feuille tech, F le nbre de comptes INTERCO
Dim D, E, F As Integer


For F = 0 To 15
For D = 1 To 655
If ListBox1.Selected(D) = True Then
Worksheets("TECH").Cells(E, 8).Value = ListBox1.List(D)
E = E + 1
End If
Next D
E = 50 * F + 42
Next F


End Sub