Microsoft 365 FORMULE Excel VBA

Bjr,

je voudrais appliquer cette formule en VBA qui me retourne les doublon en ouvrant une boite de dialogue et qui demande sur quelle colonne l'appliquer, cette formule s'applique à la cellule 2 de la colonne préciser.

j'ai une erreur de type :

Je n'arrive pas à solutionner.

Merci pour votre aide.
PS. : visiblement d'après le débogueur c'est cette partie du code qui pose problème :
Set rng = ActiveSheet.Range(colName & "2:" & colName & ActiveSheet.Cells(Rows.Count, colName).End(xlUp).Row)

Sub AddLeadingZeros()

' Demander à l'utilisateur sur quelle colonne appliquer la macro
Dim colName As String
colName = InputBox("Entrez le nom de la colonne :")

' Vérifier si le nom de colonne est valide
If colName = "" Then
MsgBox "Veuillez entrer un nom de colonne valide."
Exit Sub
End If

' Définir la plage de cellules
Dim rng As Range
Set rng = ActiveSheet.Range(colName & "2:" & colName & ActiveSheet.Cells(Rows.Count, colName).End(xlUp).Row)

' Parcourir chaque cellule de la plage
For Each cell In rng
' Vérifier si la cellule n'est pas vide et ne contient pas d'erreur
If Not IsError(cell.Value) And cell.Value <> "" Then
' Appliquer la formule avec la fonction REPT et NBCAR
cell.Value = WorksheetFunction.Rept("0", 9 - WorksheetFunction.Len(cell.Value)) & cell.Value
End If
Next cell

MsgBox "La macro a été appliquée avec succès à la colonne " & colName & "."

End Sub