Sub Bouton6_Cliquer()
'Suppresion des lignes du tableau jusqu'à la valeur stop
Dim y%
For y = 256 To 1 Step -1
If Cells(y, 1) = "Stop" Then
Range(Rows(6), Rows(y)).Select
Selection.Delete
End If
Next
'Stopper la suppression
Range("A4").Select
'Réinsérer le mot stop pour pouvoir renouveller l'opération
Range("A5").Value = "Stop"
'Pour que la couleur de le de la police soit blanche
Range("A5").Font.ColorIndex = 2
End Sub