bonjour à tous !

j'ai un petit problème, je dois insérer des donées dans une feuille d'un classeur, puis d'autres données dans le 2ème feuille du même classeur, évidemment j'ai regardé sur le forum et j'ai vu qu'il fallait faire sa :

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
For i = 1 To y                                     
        Range("A" & vide).Formula = date1(i)
        Range("B" & vide).Formula = numab(i)
        Range("C" & vide).Formula = numordre(i)
        Range("D" & vide).Formula = frappe(i)
        Range("E" & vide).Formula = poids1(i)
        Range("F" & vide).Formula = tvm(i)
        Range("G" & vide).Formula = g1(i)
        Range("H" & vide).Formula = g2(i)
        Range("I" & vide).Formula = m2(i)
        Range("J" & vide).Formula = m6(i)
        Range("K" & vide).Formula = sexe(i)
        Range("L" & vide).Formula = type1(i)
        Range("M" & vide).Formula = obs3(i)
        Range("N" & vide).Formula = tatouage(i)
        vide = vide + 1                                
Next i

    Sheets("lot").Select
    Do                                                
     Range("A" & videlot).Select        
     videlot = videlot + 1
     Loop Until Range("A" & videlot).Value = ""
     videlot2 = videlot
     ....
sa plante à la ligne rouge ! je sais pas pourquoi, sa me fait :
la méthode de l'objet range a échoué
help me !!! please