Sub importer()
Dim i As Long, sh As Integer, lig As Long, j As Integer
With Sheets("Récap")
.Range("A3:J" & .Range("A" & Rows.Count).End(xlUp).Row + 1).ClearContents
For sh = 1 To Sheets.Count
If Sheets(sh).Name <> "Récap" And Sheets(sh).Name <> "3 (4)" Then ' entre les guillements les feuilles non désirées
For i = 3 To Sheets(sh).Range("A" & Rows.Count).End(xlUp).Row + 1
If .Range("A2") = "" Then lig = 2 Else lig = .Range("A" & Rows.Count).End(xlUp).Row + 1
For j = 1 To .Cells(2, Columns.Count).End(xlToLeft).Column
.Cells(lig, j) = Sheets(sh).Cells(i, j)
Next
Next
End If
Next
End With
End...