Sub MiseEnForme()
Dim DernLigne As Long, Colonne As Long, DerLig As Long, Plage As Range
' Cherche N° colonne de la cellule active
Colonne = ActiveCell.Column
' Sélectionne cette colonne
Set Plage = ActiveSheet.Range(Cells(1, Colonne), Cells(65000, Colonne))
' Recherche la dernière ligne occupée de cette colonne
DernLigne = Plage.CurrentRegion.Count
' Selectionne la bonne plage
Set Plage = ActiveSheet.Range(Cells(1, Colonne), Cells(DernLigne, Colonne))
' Applique le format
Set F1 = ActiveSheet.Range("A2:A" & DernLigne)
For i = 1 To F1.Rows.Count
F1(i, Colonne).Value = Format(F1(i, Colonne).Value, "dd/mm/yyyy")
Next i
Plage.NumberFormat = "dd/mm/yyyy"
Range("A1").Select
End Sub