Re : Pb pour créer un tableau en feuille1 à partir des données des feuilles suivantes
bonjour Elvire
avec un fichier plus facile
essaye ce code
Sub tableau()
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
With Sheets(i)
L = .Range("C65536").End(xlUp).Row
'2 =1ère ligne données,L =dernière,li=1ère cellule vide sheets(1),colonne A sheets(1)
Li = Sheets(1).Range("C65536").End(xlUp).Row + 1
.Range("C2:C" & L).Copy Destination:=Sheets(1).Range("A" & Li)
End With
Next
Application.ScreenUpdating = True
End Sub
à bientôt