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