merci de votre réponse mais je voulais un macro.Bonjour à tous,
Je n'y connais rien en macro mais si tu filtres les "0" puis tu supprimes les lignes filtrées, tu auras le résultat escompté.
JHA
tu peux essayer sur le fichier que j'ai envoyé stp
Sub Menage()
With ActiveSheet
.UsedRange.AutoFilter
.UsedRange.AutoFilter Field:=Asc("S") - 64, Criteria1:="0"
.Rows(1).Hidden = True ' on masque la ligne des titres
.Rows.SpecialCells(xlCellTypeVisible).Delete
.Rows(1).Hidden = False ' on affiche la ligne des titres
ActiveWindow.ScrollRow = 1
.ShowAllData
End With
End Sub
Sub Suprr_les_0_dans_col_S()
Dim plage
Set plage = Feuil1.Range("S2", Cells(Rows.Count, "S").End(xlUp))
With plage
.AutoFilter Field:=1, Criteria1:="0"
Set p = .SpecialCells(xlVisible)
.Parent.ShowAllData
End With
p.EntireRow.Delete
End Sub
Mais c'est ton FICHIER que j'ai fournitu peux essayer sur le fichier que j'ai envoyé stp