Bonjour à tous,  
 
j'ai l'erreur que j'ai mis en sujet suite à ceci :  
 
i = 1
Do
    Worksheets("suivi_pbq" ).Range("A" & i + 2).Value = Worksheets("enr_incidents" ).Range("A" & TabPBQ(i)).Value
    Worksheets("suivi_pbq" ).Range("C" & i + 2).Value = Worksheets("enr_incidents" ).Range("N" & TabPBQ(i)).Value
    Worksheets("suivi_pbq" ).Range("D" & i + 2).Value = Worksheets("enr_incidents" ).Range("O" & TabPBQ(i)).Value
    Worksheets("suivi_pbq" ).Range("E" & i + 2).Value = Worksheets("enr_incidents" ).Range("P" & TabPBQ(i)).Value
    Worksheets("suivi_pbq" ).Range("F" & i + 2).Value = Worksheets("enr_incidents" ).Range("Q" & TabPBQ(i)).Value
    Worksheets("suivi_pbq" ).Range("G" & i + 2).Value = Worksheets("enr_incidents" ).Range("R" & TabPBQ(i)).Value
    Worksheets("suivi_pbq" ).Range("H" & i + 2).Value = Worksheets("enr_incidents" ).Range("S" & TabPBQ(i)).Value
    Worksheets("suivi_pbq" ).Range("I" & i + 2).Value = Worksheets("enr_incidents" ).Range("T" & TabPBQ(i)).Value
    Worksheets("suivi_pbq" ).Range("B" & i + 2).Value = Worksheets("enr_incidents" ).Range("U" & TabPBQ(i)).Value
    i = i + 1
Loop Until i > cptTab
 
L'erreur se produit des que je rentre dans la boucle, les noms des feuilles sont corrects mais aucune copie n'est faite  
 
Voila merci à tous !

qu'est sensé te retourné TabPBQ ?
assure toi qu'il ne retourne jamais 0 pour commencer, ca vient peut etre de la ?

exact, en fait je bouclais une fois de trop sur mon tableau lors de son remplissage
 
Merci beaucoup