Re : une aide pour ameliorer une BDD
Il faut remplacer çà :
If Cells(i, 6).Value <> "" Then Cells(i, 6).Value = Cells(i, 6).Value & " - " & Commentaire.Value
If Cells(i, 6).Value = "" Then Cells(i, 6).Value = Commentaire.Value
par çà :
Cells(i, 6).Value = Commentaire.Value