Do While fnames <> ""
Set wbQuelle = Workbooks.Open(fnames)
For n = 1 To wbQuelle.Sheets.Count
wbQuelle.Sheets(n).Activate
'Copier et trier saisies
wbQuelle.Sheets(n).Activate
Range("A5:A65").Select
Selection.Copy
wbZiel.Sheets("Saisies").Activate
' Vider les cellules vides considérées comme non vides
Dim zelle As Range
For Each zelle In ActiveSheet.UsedRange.Cells
If Not zelle.HasFormula Then
If Not IsEmpty(zelle) And zelle.Value = "" Then
zelle.ClearContents
End If
End If
Next
lastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
'Range("A" & lastRow + 1).Select
Range("A" & lastRow + 1 & ":A" & lastRow + 62).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False