Private Sub KillLigne(Texte As String, Lignes As Integer)
Dim i As Long
For i = 1 To Application.VBE.CodePanes(1).CodeModule.CountOfLines
If UCase(Trim(TexteLigne(i))) = UCase(Trim(Texte)) Then
Application.VBE.CodePanes(1).CodeModule.DeleteLines i, Lignes
Exit For
End If
Next i
End Sub