Re
quitte à créer une nouvel ligne à chaque fois, autant écrire les données dans cette dernière, non ?
Donc on peut remplacer :
' Ajouter syst"matiquement une ligne vierge
.ListRows.Add AlwaysInsert:=True
' Trouver la première ligne vide
dLig = .ListColumns("nom").Range.Find("", SearchDirection:=xlNext).Row
' Numéro de ligne dans le corps di tableau, déduire l'entête
dLig = dLig - 1
Par :
' Ajouter syst"matiquement une ligne vierge
.ListRows.Add AlwaysInsert:=True
' Trouver la première ligne vide
dLig = .DataBodyRange.Rows.Count
Ceci permet l'ajout d'une fiche sans connaître le nom, et du coup ce qui provoque une cellule vide dans la colonne et du coup fait qu'un nouvel enregistrement vient effacé celui qui n'était pas complet, alors oui ce ne doit pas arrivé souvent, mais s'il y a un effacement involontaire d'une donnée en colonne "Nom" alors on est au moins sur de conserver le reste...
@ bientôt
LouReeD