Sub Test()
Dim MonTableau, i, j
If IsError([mem]) Then
MonTableau = Sheets("Données").Range("A1:F10")
ThisWorkbook.Names.Add "mem", MonTableau ', Visible:=False
End If
MonTableau = [mem]
For i = 1 To UBound(MonTableau)
For j = 1 To UBound(MonTableau, 2)
If IsError(MonTableau(i, j)) Then MonTableau(i, j) = Empty
Next
Next
MsgBox MonTableau(1, 1) 'modifiez A1 pour tester
'---suite---
End Sub