Bon bah j'ai trouvé un autre moyen j'ai remplacé le as long par as double c'est mieux de toute façon et donc mi cette formule dans ma première macro et tout fonctionne.
Merci a tous
Par contre pour le user form progresse bar si jamais AMIR tu veux bien m'aider vu que tu as le lien du gros fichier en mp
Range("D77:D95").Replace What:="Groupe 3", Replacement:="Groupe", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("D77:D95").Replace What:="Groupe 2", Replacement:="Groupe", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("D77:D95").Replace What:="Groupe 1", Replacement:="Groupe", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False