bonjour qui peut me dire où se situe l'erreur

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Range(Cells(42, 2)).Replace what:=",", replacement:=".", lookat:=xlPart
alors que cette ligne fonctionne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Range("B42").Replace what:=",", replacement:=".", lookat:=xlPart
merci