[WILFRIED]

Re-

Une petite idée à creusé pour la selection auto :

Dim der_col As Long
Dim der_lng As Long
Dim deb_col As Long
Dim deb_lng As Long
dim m_cell as range


Range('E48').CurrentRegion.Select
der_col = Selection.Columns.Count
der_lng = Selection.Rows.Count
deb_col = Selection.Column
deb_lng = Selection.Row
Range('E48', Cells(deb_lng + der_lng - 1, deb_col + der_col - 1)).Select

for each m_cell in selection
select case m_cell.value
case 1
m_cell.value='A'
case 2
m_cell.value='B'
case 3
m_cell.value='C'
'....
end select
next

A+