Dim Plage As Range, PlComp As Range, CellComp As Range, i&, j&, test
With Worksheets("VBA")
Set Plage = .[A1].CurrentRegion
Set PlComp = .[PlageComp]
Dim tabl()
ReDim Preserve tabl(1 To Plage.Rows.Count, 1 To Plage.Columns.Count)
Set CellComp = .[CelluleComp]
For i = 1 To Plage.Rows.Count
For j = 1 To Plage.Columns.Count
If Plage(i, j + 3) = CellComp Then
test = Evaluate("SUM(N(OFFSET(" & Plage(i + 1, j).Address & ",,,4,7)=" & PlComp.Address & "))")
If test = 28 Then tabl(i + 1, j) = 1
End If
Next j
Next i
[U1].Resize(Plage.Rows.Count, Plage.Columns.Count).ClearContents
[U1].Resize(Plage.Rows.Count, Plage.Columns.Count) = tabl
End With
End Sub