Ajoute cette ligne avant le end sub de la procédure option du moduleoption pour afficher le bon numéro de facture
Sheets("facture").Range("g15").Value = ThisWorkbook.Names("numfact").RefersToRange + 1
et commence par zéro
Sub options(cellule)
coladhe = 5
Set adhe = cellule.Parent.Cells(cellule.Row, coladhe)
n = 0
Sheets("facture").Range("b32:f52") = ""
Set dest = Sheets("facture").Range("b32")
x = 0
'type de lignes
lignes = Array("Cotisation", "License", "Location")
'tant que c'est le même adhérent
While adhe.Offset(n, 0) = adhe
'pour chaque type de ligne
For l = 0 To UBound(lignes)
If adhe.Offset(n, 8 + l) <> "" Then
'valeur
dest.Offset(x, 1) = adhe.Offset(n, 8 + l)
'type de ligne et activité
dest.Offset(x, 0) = lignes(l) & " " & adhe.Offset(n, 6)
x = x + 1
End If
Next
n = n + 1
Wend
Sheets("facture").Range("g15").Value = ThisWorkbook.Names("numfact").RefersToRange + 1
End Sub