Bonjour, voici ma Macro :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
1  Public Function CherchePlage(ByVal feuilleSource As Worksheet) As Range
2      Dim firstCell As Range, lastCell As Range
3     
4      With feuilleSource
5          Set firstCell = .Cells(1, 1)
6          Set lastCell = .Cells(.Rows.Count, 1)
7          If IsEmpty(lastCell.Value) Then
8              Set lastCell = lastCell.End(xlUp)
9          End If
10         CherchePlage = .Range(firstCell, lastCell)
11     End With
12 End Function
Et il me crash à la ligne 10 :

Erreur d'exécution '91' :
Variable objet ou variable de bloc With non définie

Pourtant tout est bien déclaré, la fonction retourne un Range et la propriété .Range retourne en effet un Range aussi.

Je l'ai testé en Procédure (donc sans valeur de retour) et elle fonctionne...

Merci d'avance

PS : j'ai cherché sur Google cette erreur d'exécution, il y a plein de réponse que j'ai tenté mais aucune ne fonctionne.