Je souhaiterais supprimer la ligne complète si au début de cette ligne, dans la colonne A, il y a le mot "toto".

sub suppr_ligne_de_toto()
 For lin = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row To 1
 Step -1
 If Cells(lin, 1) = "toto" Then Rows(lin).Delete Shift:=xlUp
 Next lin
 end sub

ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row c'est le n° de la dernière ligne utilisée dans la feuille
je balaie les lignes en partant de la dernière et en remontant (step -1) pourquoi ? parce que si je descends, quand j'ôte une ligne, je me retrouve décalé d'un cran et ça me fatique de remonter pour ne pas rater un toto. cells(lin,1) est la première cellule de la ligne n° lin