Sub Test2()
Dim Tablo(), Plg, t&, i&, Var
With Feuil4
.Range("O4:R49").ClearContents
Set Plg = .Range(.Cells(1, 27), .Cells(Rows.Count, 27).End(xlUp))
ReDim Tablo(1 To Plg.Rows.Count, 1 To 2)
For i = LBound(Tablo, 1) To UBound(Tablo, 1)
Var = Plg(i, 1)
If Var <> "" Then
t = t + 1
Tablo(t, 1) = Var
End If
Next i
.Cells(4, 15).Resize(t, 1) = Tablo
End With
End Sub