Option Explicit
Sub test()
Dim Montab() As Variant, i As Integer, PlageBase As Range, c As Range
With Worksheets("E")
Set PlageBase = .Range("$A$1:$D$32")
.AutoFilterMode = False
End With
PlageBase.AutoFilter Field:=3, Criteria1:="2008"
MsgBox PlageBase.Resize(PlageBase.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).Count / 4
Set PlageBase = PlageBase.Resize(PlageBase.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible)
ReDim Montab(1 To PlageBase.Count / 4, 1 To 4)
i = 1
For Each c In PlageBase
Montab(i, c.Column) = c.Value
i = IIf(c.Column < 4, i, i + 1)
Next c
End Sub