With WsResult
For i = LBound(AllTheValue, 2) To UBound(AllTheValue, 2)
If AllTheValue(0, i) <> "" Then
.Cells(i + LastLine, 1) = CDate(AllTheValue(0, i))
.Cells(i + LastLine, 2) = AllTheValue(1, i)
.Cells(i + LastLine, 3) = AllTheValue(2, i)
.Cells(i + LastLine, 4) = AllTheValue(3, i)
'Remplis ta feuille resultat avec les valeurs du tableau
End If
Next i
End With