Ici macros que j'ai trouvées mais qui ne sont pas adaptées à mon exemple
Sub NumeroteLigneVisible()
Dim i As Long, DerLig As Long, P As Long
Sheets("feuil2").Select
DerLig = Range("A1").SpecialCells(xlCellTypeLastCell).Row
'Numérote la colonne H (8)
P = 1
For i = 1 To DerLig
If CelR.Rows(i).Hidden = False Then
Cells(i, 8) = P
P = P + 1
End If
Next i
End Sub
ou cette macro
Sub NumFacture()
' sélectionner la plage à numéroter avant d'appeler la macro
Dim c As Range, num As Long
num = CLng(InputBox("Premier numéro de facture ?", "Numérotation automatique de la plage sélectionnée"))
For Each c In Selection
If c.EntireRow.Hidden = False Then
c.Value = num
num = num + 1
End If
Next c
End Sub