Slt à tous,
Mon objectif est de supprimer toutes les feuilles d'un classeur ouvert dont aucune des cellules de la colonne A ne contient un certain mot.
J'ai essayé ce qui suit mais ça le fait pas. Merci de votre aide.
Sub SupprFeuilles()
Dim Ws As Worksheet
Application.DisplayAlerts = False
For Each Ws In Sheets
If Ws.Range("A1:A150") <> "BLABLA" Then
Ws.Delete
End If
Next Ws
Application.DisplayAlerts = True
End Sub
Mon objectif est de supprimer toutes les feuilles d'un classeur ouvert dont aucune des cellules de la colonne A ne contient un certain mot.
J'ai essayé ce qui suit mais ça le fait pas. Merci de votre aide.
Sub SupprFeuilles()
Dim Ws As Worksheet
Application.DisplayAlerts = False
For Each Ws In Sheets
If Ws.Range("A1:A150") <> "BLABLA" Then
Ws.Delete
End If
Next Ws
Application.DisplayAlerts = True
End Sub