La méthode 'range' de l'objet _worksheet a échoué

Bonjour,

Lors de l'éxécution du code ci-dessous je rencontre l'erreur suivante : "La méthode 'range' de l'objet _worksheet a échoué" sur la ligne "Set celluleRowRange = .Range("B", .Range("B").End(xlUp))"

J'ai retourné le code dans tous les sens mais sans succès.

Code :
---------

'On split le libellé afin de récupérer la chaîne de caractère source1 à rechercher dans la colonne B
                TabSrcDoubleEntree = Split(PtoutPar(j).Nom, "/")
                ' on récupère la ligne du doc (colonne B) dans laquelle la chaîne source 1 (=TabSrcDoubleEntree(0)) est renseignée
                Set sheet = Workbooks(PFile).Sheets(ParMap(j).Parametrage.SrcFeuille)
                With sheet
                    Set celluleRowRange = .Range("B", .Range("B").End(xlUp))
                    Set celluleFind = celluleRowRange.Find(TabSrcDoubleEntree(0), LookIn:=xlValues, lookat:=xlWhole)
                    celluleRowFind = celluleFind.Row
                End With
                'on initialise la ligne à partir de laquelle on fait la recherche à "c.Row"
                ThisWorkbook.Sheets(PFeuilleDest).Cells(iDest, ParMap(j).Parametrage.DestCol).Value = Workbooks(PFile).Sheets(ParMap(j).Parametrage.SrcFeuille).Cells(celluleRowFind + ParMap(j).Parametrage.SrcPremiereLigne, ParMap(j).Parametrage.SrcCol).Value

=> Est ce que vous connaissez l'origine de mon problème ?

Je vous remercie par avance pour votre aide.
Simon