Cellules non vide

salut Bruno la syntaxe etait plus simple que j'aurais cru. Le probleme est maintenant regle. J'ai ajouter cette ligne de code a toute les cellules qui sont traite par macro, seulement celle-ci pouvais suporte le format texte dans mon application. Le resultat est parfait!

Ca va donner un petit break a Banzai !

Merci a tout les deux!

je fermerai le post demain.

Avant de fermer le post, pourrais-tu ajouter un ou 2 commentaires a ce code, qui fonctionne tres bien dans ma macro UserForm3.

  With ActiveWorkbook
        With .VBProject
          'cette partie du code est de Laurent Longre
         For Each VBC In .VBComponents
            If VBC.Type = 100 Then
              With VBC.CodeModule
                .DeleteLines 1, .CountOfLines
                .CodePane.Window.Close
              End With
            Else: .VBComponents.Remove VBC
            End If
          Next VBC
        End With

Re,

Code commenté

With ActiveWorkbook
  ' cette partie du code est de Laurent Longre
  ' Avec le projet VBA
  With .VBProject
    ' Pour chaque composant (Feuille, USF, Module, etc ...) du projet
    For Each VBC In .VBComponents
      ' Si le type de composant peux contenir du code
      If VBC.Type = 100 Then
        ' Avec ce composant
        With VBC.CodeModule
          ' Supprimer les lignes de 1 au nombre de lignes de code du composant
          .DeleteLines 1, .CountOfLines
          ' Fermer la fenètre de code qui apparait
          .CodePane.Window.Close
        End With
      ' S'il ne peut pas contenir de code, le supprimer tout simplement
      Else: .VBComponents.Remove VBC
      End If
    Next VBC
  End With
End With

A+

Merci Bruno, ce code m'a eviter des problemes avec des macros evenementielles, lors de la sauvegarde.

Je ferme le Post