Problème de remplissage

Bonsoir,

Je ne peux pas faire plus précis dans le titre car le problème vient de mon fichier.

Dans mon useform, j'ai introduit ceci comme code :

 If TextBox3.Value = True Then
        While IsNumeric(TextBox3.Value) = True
            TextBox3.Value = InputBox("Veuillez saisir une chaîne de caractères", "Erreur", 0)
        Wend

            enseigne = CStr(TextBox3.Value)
            Cells(Range("B65355").End(xlUp).Row + 1, 2).Value = enseigne
    Else
    enseigne = "-"
    Cells(Range("B65355").End(xlUp).Row + 1, 2).Value = enseigne
    End If

J'aimerais que, seulement lorsqu'on rentre quelque chose dans le textbox "Enseigne", la chaîne de caractère s'inscrive dans le tableau (et si ce n'est pas une chaîne de caractère, ça e fonctionne pas ahah). Dans le cas contraire, un simple tiret s'affiche. Actuellement, la boucle fonctionne uniquement lorsqu'on rentre autre chose qu'une chaîne de caractères dans le textbox... et je ne comprends pas comment faire pour y remédier.

J'en profite pour vous demander, j'ai enregistré une macro de mise en page conditionnelle dans ma Feuille 2.

Elle s'actualise dès qu'il y a un changement sur la feuille. Est-ce qu'il y aurait moyen de faire en sorte que l'actualisation ait lieu uniquement lorsqu'il y a un changement dans la colonne où s'applique la mise en forme ?

Merci d'avance !

& bonne soirée.

Loyni.

Bonjour Loyni

Voici ton fichier modifié, j'espère qu'il répondra à tes demandes

Hey,

Merci beaucoup ! Et mention en plus pour les lignes explicatives.

Bonne soirée