salut
merci j'ai trouver la solution :
Sub ExtractionCol()
Dim I As Integer
Application.ScreenUpdating = False
Sheets("Récap").Range("A:A").Delete
For I = 2 To Worksheets.Count
Sheets(I).Range("E36").Copy ' copier colonne souhaitée
Sheets("Récap").Range("A" & Sheets("Récap").Range("A1048576").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues 'colle les valeurs de la colonne copiée
Next I
Application.CutCopyMode = False
Sheets("Récap").Range("A1").Select
Application.ScreenUpdating = True
End Sub