Re le forum
Ancien code bouton Reset en A1, maintenant en C28
Tu sélectionnes les cellules de ton tableau 0 à 36 (Définir un nom - Tablo)
If Not Application.Intersect(Target, Range("C28,Tablo")) Is Nothing Then
Pour la formule de recherche
Cells(4, "G").FormulaR1C1 = "=VLOOKUP(R4C1,R3C9:R39C19,2,0)"
Cells(5, "G").FormulaR1C1 = "=VLOOKUP(R4C1,R3C9:R39C19,3,0)"
'Complète la suite jusqu'à Cells(13, "G")
Mytå