!!!!! DOUBLE QUESTIONS !!!!!

bonjour

1°/

application.displayalerts=false
For Each Sh In Sheets
If Application.Count(Sh.[A1:A20]) > 0 Then MsgBox Sh.delete
Next Sh

2°/

cherche des infos sur la méthode find dans l'aide vba
tu devras arriver à un truc du genre

set cl=activesheet.cells.find "toto"
if not cl is nothing then cl.select

bye
Stéphane

Sub DetruitFeuilles()
Dim Ws As Worksheet, Trouve As Range
Dim OK As Boolean
Application.DisplayAlerts = False
For Each Ws In ActiveWorkbook.Worksheets
Set Trouve = Ws.Range("A20:C20").Find("*")
If Trouve Is Nothing And _
ActiveWorkbook.Worksheets.Count > 1 Then Ws.Delete
Next Ws
Application.DisplayAlerts = True
End Sub

Sub TrouveBONJOUR()
'trouve la cellule qui contient BONJOUR (en majuscules)
Dim CelBonjour As Range
Set CelBonjour = ActiveSheet.UsedRange. _
Find("BONJOUR", , xlValues, MatchCase:=True)
If Not CelBonjour Is Nothing Then CelBonjour.Select
End Sub

La deuxième procédure ne trouvera que "BONJOUR" (pas "Bonjour"). POur modifier cela, mets MatchCase:=false

oups, je n'avais pas vu la réponse de Stéphane.