Bonjour fronck, FINDRH,
Merci fronck pour le fichier.
Mais ce n'affiche que la première occurrence comme tu l'as annoncé.
FINDRH > Un USF c'est toujours un plus pour un traitement complet.
J'ai ajouté des LCase pour la comparaison en ce qui concerne les noms :
If LCase(Sheets("Source").Cells(j, 2)) Like LCase("*" & Me.TextNom.Value & "*") Then
Peut-on ajouté des bouton d'ajout/suppression/modification de données à cet USF ?