Bonjour
Ci joint ma solution
Mais n'ayant pas trouvé la correspondance il faudra modifier la macro
Clic droit sur l'onglet de la feuille "Motorer "
choisir "visualiser le code"
il faut modifier item (i, n° de la colonne correspondante)
Sheets("Motorer ").Range("G" & lig).Value = [table1].Item(i, 39) 'Status
A+ François