Sub AA()
Dim TabData(), TabReport(), i&, j&, k&, Cpt&
TabData = Sheets("Feuil1").UsedRange.Value
ReDim TabReport(1 To UBound(TabData, 1), 1 To UBound(TabData, 2))
k = 1
For i = 1 To UBound(TabData, 1)
For j = 1 To UBound(TabData, 2)
TabReport(k, j) = TabData(i, j)
'If Not IsError(TabData(i, j)) Then ' A mettre si des formules sont en erreurs
If TabData(i, j) <> "" Then Cpt = Cpt + 1
'End If ' A mettre si des formules sont en erreurs
Next j
If Cpt <> 0 Then k = k + 1
Cpt = 0
Next i
With Sheets("Feuil1")
.UsedRange.ClearContents
.Cells(1, 1).Resize(UBound(TabReport, 1), UBound(TabReport, 2)) = TabReport
End With
End Sub