Bonjour,
Manque ce qui est en rouge


Set oRst = CurrentDb.OpenRecordset("SELECT " & FLD_fieldFiles & " FROM " & TB_table & " WHERE [" & FLD_fieldPK & "]=" & ligneRecord)
oRst.edit
...