' cellules visibles 1ière colonne du tableau sans la ligne d'en-tête
On Error Resume Next
Set CellVisible = Range(tablo).Columns(1).Offset(1). _
Resize(Range(tablo).Columns(1).Rows.Count - 1). _
SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If CellVisible Is Nothing Then
' Le filtre ne ramène aucune ligne
MsgBox "Aucune cellule ne répond aux critères du filtre. Pas de traitement!"
Else
' il y a au moins une ligne filtrée
' une ligne -> marquée "N"
' deux lignes -> la 1ière marquée "N", la seconde "C"
' 3 lignes ou plus -> la 1ière marquée "N", la dernière "C", les autres "R"
CellVisible.Offset(, 4) = "R"
CellVisible.Areas(CellVisible.Areas.Count). _
Cells(CellVisible.Areas(CellVisible.Areas.Count).Rows.Count, _
1).Offset(, 4) = "C"
CellVisible.Areas(1).Cells(1, 1).Offset(, 4) = "N"
End If