Bonjour Pierre et le forum,
Essayes sans garantie ce code, il a été fait sur Excel 2000.
Sub Macro_Detect()
Dim Lig As Integer, i As Integer
Lig = Range('A65536').End(xlUp).Row
If Lig <= 30 Then
MsgBox 'Il n'y a pas + de 30 lignes'
Else
For i = Lig To 31 Step -1
Range('A' & i).EntireRow.Delete
Next i
End If
End Sub
Cordialement
Bernard
Message édité par: CBernardT, à: 16/02/2006 07:55