VBA - Utiliser un titre de colonne dans une macro

Bonjour tout le monde,

J'ai un petit bug sur une macro (novice en VBA).

Je dois insérer une colonne ADR en "L" afin d'y insérer les données comprises dans les colonnes ADR1 en "J" et ADR2 en "K"

Le nombre de lignes d'un fichier à un autre n'étant jamais le même, j'ai compté large et demandé à ce que la formule copiant les données de "K" et "L" aille jusqu'à la ligne 20000

Cependant, je voulais savoir s'il n'était pas plus simple de demander à la macro de trouver la colonne "ADR2", d'y insérer à droite une colonne "ADR" et de procéder à l'insertion des données sur toute la colonne plutôt que d'aller jusqu'à la ligne 20000.

Voici ma macro ci-dessous :

Sub ADR1_ADR2()
'
' ADR1_ADR2 Macro
'

'
Columns("L:L").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("L1").Select
ActiveCell.FormulaR1C1 = "ADR"
Range("L2").Select
ActiveCell.FormulaR1C1 = "=RC[-2]&"" ""&RC[-1]"
Range("L2").Select
Selection.AutoFill Destination:=Range("L2:L20000")
Range("L2:L20000").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Merci pour votre aide
Louloute