Sub Récup_donnée()
'
'
For I = 4 To 23 'onglet de 4 à 23
Sheets(I).Select 'selectionner onglet
Range("A18").Select 'selection cellules non vides (plage possible A18:H514)
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy 'copier la sélection
Sheets("BASE").Select 'selectionner la feuille Base et copier les valeurs à la suite
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Next I
End Sub