Bonjour
Merci de ton aide
j'ai juste rajouter les lignes suivantes dans ma macro
Dim Cell As Range
' On cherche le dernier mot TOTAL en colonne E
Set Cell = Columns("E").Find("TOTAL", Cells(Rows.Count, "E"), xlValues, xlWhole, xlByColumns, xlPrevious)
' On détruit toutes les...