Sub AjouterIdentifiant()
Dim Plage As Range, T(), L As Long
Set Plage = Intersect([F2:F1048576], ActiveSheet.UsedRange)
T = Plage.Value
For L = 1 To UBound(T, 1)
If VarType(T(L, 1)) = vbDouble Then
T(L, 1) = Format(T(L, 1), "00000")
Else
T(L, 1) = Right$("00000" & T(L, 1), 5)
End If: Next L
Plage.NumberFormat = "@"
Plage.Value = T
End Sub