Bonsoir kivanç,
Voici une nouvelle version avec initialisation automatique des listes col A,B et C de la feuille application à l'ouverture du classeur.
Sub initialise() 'initialisation des listes de la feuille Application
Application.ScreenUpdating = False
Sheets("Application").Select
Dim Derlig1
'Sheets("Application").Select
Derlig1 = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Range("A3:A" & Derlig1).Name = "Liste1"
Derlig2 = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Range("B3:B" & Derlig2).Name = "Liste2"
Derlig3 = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Range("C3:C" & Derlig3).Name = "Liste3"
Sheets("Feuil1").Select
End Sub
Si d'autres ajouts sont fait dans ces colonnes, ils seront pris en compte après fermeture et ouverture du fichier. Ou bien cliquer sur Macro et exécuter "ThisWorkbook.initialise".
J'ai rectifié ta formule comme ceci: =SI(K3=2014;periode14;periode15)
Bon courage
Cdt
Henri