XL 2010 Copier une liste dans chaque feuille

Sub Macro1()
Dim R As Worksheet 'déclare la variable R (onglet Recap)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Integer 'déclare la variable J (incrément)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)

Set R = Worksheets("Recap") 'définit l'onglet R
DL = R.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet R
TV = R.Range("A5:A" & DL) 'définit le tableau des valeurs TV
J = 1 'initialise la variable J
For I = 2 To Sheets.Count 'boucle des onglets 2 jusqu'au dernier
    Worksheets(I).Range("B2").Value = TV(J, 1): J = J + 1 'renvoie dans la cellule B2 de l'onglet de la boucle la donnée ligne J, colonne 1 de TV, incrémente J
Next I 'prochain onglet de la boucle
End Sub