Bornes adresses de cellules en Vba Excel 2007

Option Explicit  

Sub Regroupe_Données()  
Dim Tabl, i As Long, Cpt As Long  
With Sheets("Feuil1")  
    Tabl = .Range("B2", .Range("B" & .Rows.Count).End(xlUp)) '*** on commence en B2!!!  
End With  
With Sheets("Feuil2")  
    i = LBound(Tabl)  
    Cpt = i  
    .Cells(Cpt, 1) = Tabl(i, 1)  
    'Ici on présume commencer le Tableau en ligne 2 (cf *** ci-dessus)  
    'donc le numéro de ligne = indice du tableau (i) + 1  
    'si les données débutent en ligne 1 remplacer i + 1 par i 
    .Cells(Cpt, 2) = i + 1  
    .Cells(Cpt, 3) = i + 1  
    For i = LBound(Tabl) + 1 To UBound(Tabl)  
        If Tabl(i, 1) = Tabl(i - 1, 1) Then  
            .Cells(Cpt, 1) = Tabl(i, 1)  
            .Cells(Cpt, 3) = i + 1  
        Else  
            Cpt = Cpt + 1  
            .Cells(Cpt, 1) = Tabl(i, 1)  
            .Cells(Cpt, 2) = i + 1  
            .Cells(Cpt, 3) = i + 1  
        End If  
    Next  
End With  
End Sub