Re : extraire l'adresse d'une colonne
petite modification
Sub La_Marie()
Dim acell As Object
Range(Selection.Address).Select
For Each acell In Selection
Set rng = Range(Cells(1, acell.Column), Cells(10, acell.Column))
x = Application.WorksheetFunction.CountIf(rng, "Marie")
If acell = "" and x =...