Sub Traitement()
Call TrouveEtRemplace("IdClient", "76A11")
Call TrouveEtRemplace("IdProduit", "PROD1")
Call TrouveEtRemplace("IdCategory", "43")
End Sub
Sub TrouveEtRemplace(xCherche, xRemplace)
Cells.Replace What:=xCherche, Replacement:=xRemplace, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub