Bonjour à tous,

Dans le fichier excel suivant, le nombre de colonne varie d'une ligne a l'autre.
Je voudrais connaitre la dernière colonne utilisé afin de pouvoir inverser le tableau (en miroir) que la premiere colonne devienne la derniere et ainsi de suite pour les autre.

Voici le code que j'ai utilisé,

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Option Explicit
 
Sub Essai()
  Dim Tbl
  Dim Lig As Integer
  Dim Col As Integer
  Dim DerLigne As Integer
  Dim DerColonne As Integer
 
  DerLigne = Cells(Rows.Count, 1).End(xlUp).Row
  DerColonne = Worksheets("Feuil3").UsedRange.Columns.Count
 
  Tbl = Range(Cells(1, 1), Cells(DerLigne, DerColonne)): Application.ScreenUpdating = 0
 
  For Lig = 1 To DerLigne
    For Col = 1 To DerColonne
        Cells(Lig, (DerColonne + 1) - Col) = Tbl(Lig, Col)
    Next Col
  Next Lig
 
End Sub
cela fonctionne sur en gros mais ma variable
Code : Sélectionner tout - Visualiser dans une fenêtre à part
  DerColonne = Worksheets("Feuil3").UsedRange.Columns.Count
ne me renvoie pas le bon resultat.

Une idée de l'erreur?

Merci