There were some data link errors in the attachment that I skipped
Based on what I could test otherwise, 'Sheet Feuil1 is empty so .Find errors out
.
I added an "On Error' statement
For i = LBound(SheetsFound) To UBound(SheetsFound)
Set Wks = Sheets(SheetsFound(i))
With Wks
'Sheet Feuil1 is empty so .Find errors out
On Error GoTo NextSheet ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
LR = .Cells.Find("*", .Cells(.Rows.Count, .Columns.Count), SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
.Range("C2:C" & LR).Copy
ListsLR = Sheets("Lists").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Lists").Range("A" & ListsLR).PasteSpecial
.Range("D2:D" & LR).Copy
ListsLR = Sheets("Lists").Range("B" & Rows.Count).End(xlUp).Row + 1
Sheets("Lists").Range("B" & ListsLR).PasteSpecial
.Range("E2:E" & LR).Copy
ListsLR = Sheets("Lists").Range("C" & Rows.Count).End(xlUp).Row + 1
Sheets("Lists").Range("C" & ListsLR).PasteSpecial
.Range("F2:F" & LR).Copy
ListsLR = Sheets("Lists").Range("D" & Rows.Count).End(xlUp).Row + 1
Sheets("Lists").Range("D" & ListsLR).PasteSpecial
Application.CutCopyMode = False
End With
NextSheet:
On Error GoTo 0
Next i