Bonjour à tous,
Il faudrait que je supprime des lignes si plusieurs colonnes comportent des cellules vides (Colonnes AK - AS)
J'avais un code mais il ne fonctionne pas et je n'y connait presque rien en VBA:
Sub efface_vide()
Dim l As Long
For l = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Cells(l, "AK").Value = "" _
And Cells(l, "AL").Value = "" _
And Cells(l, "AM").Value = "" _
And Cells(l, "AN").Value = "" _
And Cells(l, "AO").Value = "" _
And Cells(l, "AP").Value = "" _
And Cells(l, "AQ").Value = "" _
And Cells(l, "AR").Value = "" _
And Cells(l, "AS").Value = "" _
=>(Le débogage s’arrête après then) ThenCells(l,1).EntireRow.Delete
Next l
End Sub
Voilà merci d'avance