Macro N+1

Bonjour,

Formule à mettre en B1 par formule

=RECHERCHE(9^9;N°!B:B)+1

Et par macro

Sub Test()
  Dim i%, j%, Dl%
  Dim Ws As Worksheet, Wd As Worksheet
  Set Ws = Sheets("N°")
  Set Wd = Sheets("Facture")
  Dl = Ws.Range("B" & Rows.Count).End(xlUp).Row
  Wd.Range("B1") = Ws.Cells(Dl, 2) + 1
End Sub

Bonjour M-12 et merci pour ta réponse.

Je regarde à cela dès demain et te dis quoi...!

Rebonjour M-12,

Je n'ai pas compris la formule ....mais ça fonctionne parfaitement.

Pour ce qui est de la macro....je n'ai pas compris non plus, mais

je ne vois pas pourquoi dans la dernière ligne on fait référence à D1.

Toujours désireux d'apprendre, si tu as l'occasion de m'en dire plus, je suis preneur.

Bon dimanche.

Ok...

Grand merci pour ton aide.