Discussion :

[Francis L]

Bonjour,

J'ai lu cette discussion.

Ben je viens de trouver une solution qui fonctionne à l'instant

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub SupLign()
Dim i As Long
For i = Range("B65536").End(xlUp).Row To 1 Step -1
    If Not UCase(Cells(i, 2).Value) Like UCase("*ordinateur*") Then Rows(i).Delete
Next i
End Sub

Merci quand même zyhack

Effectivement cette macro fonctionne très bien.

J'aimerais savoir comment on peut l'appliquer sur toutes les feuilles d'un même fichier.