Option Explicit
Sub Copie()
Dim i As Long, j As Integer, t(), t1
t = Range(Cells(1, 1), Cells(100, 100))
ReDim t1(1 To UBound(t), 1 To UBound(t))
For i = 2 To 100
For j = 2 To 100
If Not Cells(i, j).HasFormula Then
t1(i, j) = Cells(i, j)
End If
Next
Next
Range("A1").Resize(UBound(t1), UBound(t1)) = t1 'Choisir où on veut copier
End Sub