Private Sub Worksheet_SelectionChange(ByVal Cible As Range)
Dim Plg As Range, x As Boolean
Set Plg = Intersect(Cible, Columns(2).Resize(40).Offset(1))
If Not Plg Is Nothing Then
Application.ExtendList = False
Else
Application.ExtendList = xtndLst
End If
End Sub
Private Sub Worksheet_Change(ByVal Cible As Range)
Dim Plg As Range, Cel As Range
Set Plg = Intersect(Cible, Columns(2).Resize(40).Offset(1))
If Not Plg Is Nothing Then
Application.EnableEvents = False
For Each Cel In Plg.Cells
With Cel
If IsEmpty(.Value) Then
.NumberFormat = "General"
Else
On Error Resume Next
.Value = .Value / 100
On Error GoTo 0
.NumberFormat = "0.00%"
End If
End With
Next
Application.EnableEvents = True
End If
End Sub