Bonsoir Surfing Joe, galopin01,
Sub MasqueLignColDebutfeuille()
Dim Fcell As Range
With ActiveSheet
Set Fcell = .Cells.Find("Debut_feuille")
If Not Fcell Is Nothing Then
.Range(.Cells(1, 1), .Cells(1, Fcell.Column - 1)).EntireColumn.Hidden = True
.Range(.Cells(1, 1), .Cells(Fcell.Row - 1, 1)).EntireRow.Hidden = True
End If
End With
End Sub
Je pense que ça devrait régler ton problème...
Par ailleurs, si je peux me permettre un conseil, il n'est pas vraiment souhaitable de stocker tes procédures dans l'objet ThisWorkbook, il conviendrait mieux de les mettre dans un module de code spécialement créé à cet effet (ou à défaut, dans le module de code de la feuille qui subit le traitement).
En théorie, les modules de code correspondant aux Feuilles, à l'objet ThisWorkbook ou aux UserForms, sont destinés à gérer les évènements "Private Sub" liés à ces objets.
Les modules que tu obtiens par menu Insertion / Module sont plus appropriés pour stocker tes propres procédures publiques ou fonctions personnalisées.
Enfin, ça c'est la théorie bien sûr...
NB: dommage que DavidXLD le Webmaster est supprimé notre fil d'hier sur le sujet...
Cordialement.
Didier_mDF