Bonjour forum,
J'ai un petit bout de code censé supprimer les lignes entière avec le mot "COUCOU" présent en colonne B dans toutes les feuilles nommé Feuil1, Feuil2 etc.
Mais visiblement il ne veut rien savoir.
Si quelqu'un a une idée. Merci de votre aide.
Sub Suppr_coucou()
Dim x As Integer
Dim ws As Worksheet
Dim coucou As String
Application.ScreenUpdating = False
coucou = CLng(Sheets("Accueil").Range("B1").Value)
For Each ws In ActiveWorkbook.Worksheets
If LCase(ws.Name) Like "*Feuil*" Then
For x = ws.Range("B5000").End(xlUp).Row To 2 Step -1
If CLng(ws.Range("B" & x)) = coucou Then ws.Rows(x).Delete
Next
End If
Next ws
Application.ScreenUpdating = True
End Sub