Merci pour vos réponses, mais je dois vous faire passer le code complet car il y a plusieurs "endroits" où je voudrais intégrer cette donnée, et je n'arrive pas à le faire avec les autres morceaux de codes
Il s'agit de plusieurs macros que j'ai maladroitement associées, et à par ce point, tout fonctionne
Sub Tri_Chrono()
' Tri_Chrono Macro
' Trie toutes les opérations de la plus récente à la plus ancienne
Range("B10:B9240").Select
ActiveWorkbook.Worksheets("Ecritures").ListObjects("Tabécritures").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Ecritures").ListObjects("Tabécritures").Sort. _
SortFields.Add2 Key:=Range("B10"), SortOn:=xlSortOnValues, Order:= _
xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Ecritures").ListObjects("Tabécritures").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("J10").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(SEARCH(Ecritures!R9C9,Ecritures!RC[-1]),"""")"
Range("Q9240").Select
Selection.AutoFill Destination:=Range("Q10:Q9240"), Type:=xlFillDefault
Range("Q10:Q9240").Select
' MAJ_formule_recherche Macro
' Re balaye la colonne masquée J en cas de décalage formule pour la recherche
Range("J10").Select
Selection.AutoFill Destination:=Range("J10:J9240")
Range("J10:J9240").Select
'
' Maj_dates_écritures Macro
' Mets à jour les dates dans la colonne Année ( C ) après insertion écritures
'
Range("C9").Select
Selection.AutoFill Destination:=Range("Tabécritures[Année]")
Range("Tabécritures[Année]").Select
Range("I9").Select
End Sub