je suis sous excel v2002 (10.6850)
j'ai l'erreur suivante "erreur excecution 1004 la methode paste de la classe worksheet a échoué"

l'execution s'arrete sur la ligne activesheet.paste en fin de procedure
voici la procedure en question
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
 
Private Sub recopieprono() 'recopie les pronos selctionner de la feuille liste dans la feuiile synthese
Dim choixprono As String
Dim II As Long 'index fauille liste
Dim ii1 As Long, colnbchxprono As Long, colnbchxpronodebut As Long, colnbchxpronofin As Long
Dim i2 As Long
colnbchxprono = 0
colnbchxpronodebut = 0
colnbchxpronofin = 0
'selection du nb de chx à prendre et de la position de depart dans la selection des chx dans le pronostique
II = 5 'index de 1er position pour lire les pronods choisis dans la feuil liste
'lire les pronos selectionner dans la feuille liste
Do While Sheets("liste").Range("C" & II).Value <> ""
         choixprono = Sheets("liste").Range("C" & II).Value
         colnbchxpronodebut = TextBox25.Value + 6 '1+6position du premier cheval a partir de laquelle les chx seront retenus
         colnbchxprono = TextBox24.Value 'nb de chx a lire dans le porosnostique
         colnbchxpronofin = colnbchxpronodebut + colnbchxprono - 1 ''
         If colnbchxpronofin > 22 Then colnbchxpronofin = 22
 
         ii1 = 2 ' debut ligne 2 ,lit les feuille pronoxxx en focntion des choix des noms des pronos
         Do While Sheets(choixprono).Range("G" & ii1).Value <> "" 'tantque la premeire colo de la feuille pronoxxxn'est pas vide
                 If Sheets(choixprono).Range("a" & ii1).Value = indexcourse Then
                    'Sheets(choixprono).Range("g" & i1 & ":V" & i1).Copy 'copie le prono dans la plage G à v en fonction de la ligne I1
                 With Sheets(choixprono) 'selctionne les chevaux dans la feuille du prono choisi.
                     .Range(.Cells(ii1, colnbchxpronodebut), .Cells(ii1, colnbchxpronofin)).Copy 'copy les chevaux des pronos choisis
                 End With
                 End If
      ii1 = ii1 + 1
Loop
'(recpie les chx des prono choisi dans la feuille synthese
  i2 = 6 'index 1er ligne de la feuille synthese
   Sheets("synthese").Select
     Do While Sheets("synthese").Range("b" & i2).Value <> ""
     i2 = i2 + 1
     Loop
     Sheets("synthese").Range("b" & i2).Select
     ActiveSheet.Paste '**** le curseur s'arrete la*****
     Sheets("synthese").Activate
 
 II = II + 1
Loop

je comprends plus rien

pour info dans la feuille liste j'ai bien le nom des prono(onglet feuille) qui s'ecrit bien