Function SupprimerLignesVidesFeuille(ByVal Feuille As Excels.Worksheet) Dim ligne As Long = 0 Dim nbr As Integer = 0 For ligne = Feuille.Cells.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeLastCell).Row To 1 Step -1 nbr = nbr + 1 If Feuille.Rows(ligne & ":" & ligne).Cells.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeBlanks).Count = Feuille.UsedRange.Columns.Count Then 'ton traitement 'ici par exemple supprime les lignes vides Feuille.Rows(ligne & ":" & ligne).Delete() nbr = nbr - 1 End If Application.DoEvents() Next ligne Return nbr End Function