Bonjour,

Peut-on, avec une macro commandée par un bouton, supprimer et remplacer, les exemples de lignes suivantes :
Sinon en bref : pouvoir modifier les lignes de code avant de les utilisées.

1) Dans le code feuille 2 (Essai) :
Ligne 55 ---->
Select Case Application.CountIf([B14:B19], "n") par ----> Select Case Application.CountIf([B14:B18], "n")

2) Dans le code UserForm1:
Ligne 71 ---> isoler (ou supprimer) Label14.Caption = [B19] . Value
Ligne 149 --> isoler (ou supprimer) Label14.Caption = ""
Ligne 190 --> isoler (ou supprimer) Label14.Caption = [B19] . Value
Ligne 242 --> n = Application.CountA([B14:B19]) par ----> n = Application.CountA([B14:B18])
Ligne 243 -->
Range("B14:B19")(n, 1).ClearContents par ----> Range("B14:B18")(n, 1).ClearContents[/b][/b]
Ligne 255 --> isoler (ou supprimer) Label14.Caption = [B19] . Value

Cordialement
Merci de votre aide
Poppy