Bonsoir Fabien, le Forum
Tu n'étais pas si loin...
Voici une version un peu plus aboutie au cas où il n'y ait pas de string "FinFeuille" :
Option Explicit
Sub HideFromLastLigne()
Dim L As Long
With Sheets(1)
On Error GoTo TheEnd
L = WorksheetFunction.Match("finfeuille", .Columns(1), 0)
.Rows(L & ":65536").Hidden = True
End With
Exit Sub
TheEnd:
If Err = 1004 Then
MsgBox "Pas de String finfeuille", vbExclamation
Else
MsgBox "Erreur Non Gérée " & Err.Number & " " & Err.Description, vbCritical
End If
End Sub
Bonne Soirée
@+Thierry