Erreur d'exécution 6

Bonjour le forum.

Dans le fichier joint,après la deuxième donne ca me marque "erreur d'exécution 6".

quelqu'un a t'il une solution pour palier à ce problème.

Merci.

Bonjour doudou1960,

l'erreur ce situe apparemment ICI

1) il faut définir derLi as Long

2) Pour trouver la dernière ligne, il ne faut pas utiliser cette méthode.

Je n'ai pas tout compris au niveau utilité mais voici le code qui fonctionne

Sub MasquerLignesColonnesVides()
  Dim derLi As Long
  Application.ScreenUpdating = False
  With ActiveSheet
    derLi = .Range("A" & Rows.Count).End(xlUp).Row
    Call GetRealLastCell
    .Range(.Cells(derLi + 1, 1), .Cells(Rows.Count, 1)).EntireRow.Hidden = True
    .Range(.Cells(1, derCol + 1), .Cells(1, Columns.Count)).EntireColumn.Hidden = True
  End With
End Sub

@+

Merci BrunoM45,c'est parfait ca fonctionne nickel.

merci.

A+