Laurent Godard a écrit :

OK, merci. Mais j'y arrive pas, il me dit que les dimentions ne correspondent pas. Même avec cette macro :

Option Explicit

Sub zoneTableau

Dim MonDocument As Object, Controleur As Object

Dim UnezoneCellule As Object, CoordZone As Object

Dim x1 As Long, y1 As Long

Dim mesValeurs As Double, vligne As Double, UnElement As Double

MonDocument = ThisComponent

Controleur = MonDocument.CurrentController

UnezoneCellule = Controleur.Selection

mesValeurs = UneZoneCellule.getDataArray

for y1 = LBound(mesValeurs) to UBound(mesValeurs)

vligne = mesValeurs(y1)

for x1 = LBound(vligne) to UBound(vligne)

UnElement = vligne(x1) +2000

vligne(x1) = UnElement

next x1

mesValeurs(y1) = vligne

next y1

UneZoneCellule.setDataArray(mesValeurs)

End Sub