Sub Macro1()
TV = Worksheets("Feuil1").Range("A1").CurrentRegion
ReDim TE(1 To UBound(TV, 1), 1 To UBound(TV, 2))
ReDim TD(1 To UBound(TV, 1), 1 To UBound(TV, 2))
For I = 1 To UBound(TV, 1)
For J = 1 To UBound(TV, 2)
If I = 1 Then TE(I, J) = TV(I, J) Else TE(I, J) = Int(TV(I, J))
If I = 1 Then TD(I, J) = TV(I, J) Else TD(I, J) = TV(I, J) - Int(TV(I, J))
Next J
Next I
Worksheets("Feuil2").Range("A1").Resize(UBound(TE, 1), UBound(TE, 2)).Value = TE
Worksheets("Feuil3").Range("A1").Resize(UBound(TD, 1), UBound(TD, 2)).Value = TD
End Sub