Sub ProchainNumFA()
Application.ScreenUpdating = False
Dim derlig As Long, Numéro As Long
Workbooks("JOURNAL_DEVIS .xlsx").Activate
With Workbooks("JOURNAL_DEVIS .xlsx").Sheets("Liste")
derlig = .Application.CountA("*", [LNumero])
Numéro = .Range("A" & derlig).Value + 1
.Range("A" & derlig + 1) = Numéro
End With
Workbooks("02.MATRICE DEVIS-FACTURES.xlsm").Sheets("DEVIS").Activate
Range("H9").Value = Numéro
End Sub