Recherche:

dans ce modele j'ai une bascule 3 positions
false ou 0 ou >0

je me suis amusé avec un exemple simple de récursivité de la fonction
tu a 3 essais par defaut si argument "A" omis

Sub...

Bonjour Marcel

ne te fache pas

a savoir que saisie/goto saisie n'est pas une bonne solution

attention au rupteur memoire dans des pcs professionels au bureau qui sont pas toujours...

re
puré tu deconne marcel :mouarf:
saisie/goto saisie :bug: obligé de fermer dans la gestion de tache:ptdr:

et ca :?????:ptdr:

Worksheets("lafeuille").Rows(numligne).EntireRow.Delete

Private Sub Cmb_Moins_Click()
Dim rep As VbMsgBoxResult
If Selection.Columns.Count = Columns.Count Then
rep = MsgBox("etes vous sur", vbYesNo, "Suppresion de ligne")
If...