Bonjour à tous,
J'ai besoin d'aide pour la suite de ce code.
Sub Relancer()
Application.ScreenUpdating = 0
Feuil2.Select
[A:A].Select
Selection.Find(What:=Feuil4.[g10], After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart).Activate
ActiveCell.Offset(0, 9) =...