Bonjour, je vous explique mon problème en quelques lignes.

J'ai réussis à écrire un début de code pour pouvoir copier dans chaque feuille de mon ficher, un tableau de valeur. 

Chaque tableau est alors collé à la suite les uns des autres dans un Sheets spécial. Cependant, avec le code si dessous, tout mon tableau se copie colle bien mais pas la dernière colonne. Mon tableau est définis sur B15:I38 pour infos.

Private Sub centraliser_Click()

    Dim ws As Worksheet
    Dim wsDest As Worksheet

    Set wsDest = Sheets("Gestion")

    For Each ws In ActiveWorkbook.Sheets
        If ws.Name <> wsDest.Name Then
            ws.Range("B15", ws.Range("B15").End(xlToRight).End(xlDown)).Copy
            wsDest.Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial xlPasteValues
        End If
    Next ws

End Sub

Merci pour votre aide,

Bonne fin de journée

Guillaume

pourquoi ne pas mettre la range "B15:I38" directement alors?

le problème doit être qu'il n'y a pas de données en I15 donc le End(xlToRight) ne prend pas cette cellule. Essaie d'inverser l'ordre des End (le problème se posera aussi si il n'y a cellules vides dans la colonne B)

ws.Range("B15", ws.Range("B15").End(xlDown).End(xlToRight)).Copy

Nikel merci, j'ai juste mis un 

ws.Range("B15", I38")

Merci