Récupération Données

Sub recap()
If Feuil2.Range("A65536").End(xlUp).Row > 3 Then Feuil2.Range("A3:I" & Feuil2.Range("A65536").End(xlUp).Row).ClearContents
If Feuil2.Range("A65536").End(xlUp).Row > 3 Then Feuil2.Range("A3:I" & Feuil2.Range("A65536").End(xlUp).Row).ClearFormats
Application.ScreenUpdating = False
For n = 1 To Sheets.Count
 If InStr(Sheets(n).Name, "Recap") = 0 Then
   x = Feuil2.Range("A65536").End(xlUp).Row + 1
   Sheets(n).Range("A4:I34").Copy Destination:=Feuil2.Range("A65536").End(xlUp).Offset(2, 0)
 End If
Next n
For n = Feuil2.Range("A65536").End(xlUp).Row To 3 Step -1
  For m = 2 To 9
    ligne = ligne & Cells(n, m)
  Next m
   If ligne = "" Then Rows(n).Delete
  ligne = ""
Next n
Application.ScreenUpdating = True
End Sub