Sub SupprimerLignes()
Rows("3:" & Rows.Count).Clear
End Sub
Sub SupLig
With Sheets("HORSGABARIT")
dLig = .Range("A" & Rows.Count).End(XlUp).Row
.Rows("2:" & dlig).Delete
End With
End sub
Ptifanou... il fallait prendre le miensmerci beaucoup staple
comment faire que ce code fonctionne sur ma feuille nommé "HORSGABARIT" même si je ne suis pas dessus?
Sub SupprimerLignes_II()
Sheets("HORSGABARIT").Rows("3:" & Rows.Count).Clear
End Sub