Bonjour Meloman
Juste une remarque.
Quand tu écrit n = Sheets("Liste").Cells(300, 14).End(xlUp).Row , la variable est Long et non String.
String si n = Sheets("Liste").Cells(300, 14).Value et que la cellule est un texte.
Long si n = Sheets("Liste").Cells(300, 14).Value est un nombre
Date si n = Sheets("Liste").Cells(300, 14).Value est une date
Double si n = Sheets("Liste").Cells(300, 14).Value = 150. 85€
EDIT: bonjour JBARBE. Celà ne vas pas suffire, il faut modifier les macros en tableaux, mais pour moi c'est compliqué.