Bonjour Hervé, bonjour le forum
D'après ce que j'ai pu tester, on obtient le message que tu mentionnes (Erreur d'exécution '91'....) lorsque que l'on essaie d'exécuter ton code sur une feuille ne comportant aucune donnée ou bien lorsque la variable Saisie_NuméroPhysique a pour valeur une valeur inexistante dans la feuille.
Dans ces deux cas, la méthode "Find" renvoie la valeur Nothing qui bien sûr ne peut pas être "activée" d'où le message.
Pour l'éviter, ou bien il faut faire précéder l'instruction "Cells.Find(Saisie_NuméroPhysique, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, _
MatchCase:=False).Activate" par l'instruction "On Error Resume Next" (qui fait abstraction de toutes les erreurs, ou bien plus spécifiquement par "If Cells.Find(Saisie_NuméroPhysique, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, _
MatchCase:=False) Is Nothing Then (instructions à éxécuter si la valeur recherchée n'est pas trouvée)".
Voilà, j'espère t'avoir éclairé.
Bonne fin de journée