Rechercher des plages qui varient en taille

Sub CDP_3A()
Dim T(), Nom As Range, Plage As Range, Etat As Range, i As Byte, j As Byte, k As Long, l As Long
Dim Ligne As Long, Nb As Double, DerLig As Long, PlageGén As Range, Col As Integer
Application.ScreenUpdating = False

With Sheets("suivi Général")
    .Range("B4:M10000").ClearContents
    Set Nom = .Range("B2:L2")
End With

Col = 2
For i = 1 To Nom.Cells.Count Step 2
    For j = 1 To Sheets.Count - 1
        If Sheets(j).Name <> "suivi Général" Then
            Set Plage = Sheets(j).[A1].CurrentRegion
            Set Etat = Sheets(j).Range("A2:A" & Plage.Rows.Count)
            l = 1
            Ligne = Application.Match("3. En cours", Etat, 0) + 1
            If Not IsError(Ligne) Then
                Nb = Application.WorksheetFunction.CountIf(Etat, "3. En cours")
                ReDim Preserve T(1 To Nb, 1)
                    For k = Ligne To Ligne + Nb - 1
                        If Plage(k, 8) = Nom(i) Then
                            T(l, 0) = Plage(k, 2)
                            T(l, 1) = Plage(k, 6)
                            l = l + 1
                        End If
                    Next k
            End If
            With Sheets("suivi Général")
                DerLig = .Cells(.Rows.Count, Col).End(xlUp).Row + 1
                .Cells(DerLig, Col).Resize(UBound(T), UBound(T, 2) + 1) = T
                Erase T
            End With
        End If
    Next j
    Col = Col + 2
Next i
Application.ScreenUpdating = True
End Sub