Bonjour à tous,
@yoda60 Sans plus de précision, cela va être difficile d'aider. Ce qui est sûr c'est que si des colonnes sont ajoutées il faut redimensionner le tableau 'Arr' sur la bonne ligne :
Dim Arr As Variant
Arr = LO.DataBodyRange.Offset(, 1).Resize(, 5).Value2 'les 4 colonnes du tableau contenant les données
Après tout dépend du besoin...