VBA - recherche et suppression valeur cellule

Bonjour,

Je n'ai aucune notion de VBA alors je sollicite votre aide

En fait pour la petite histoire j'ai une formule qui compte des cellules en fonction de leur date, certaines de ces cellules sont vides mais étant donné qu'il y a une formule dedans, le résultat renvoi une erreur :/, j'ai donc forcé le mot "VIDE" lorsque la cellule est vide, et j'aimerai ensuite pouvoir le supprimer.

Bref, dans ma feuille, j'ai les colonnes J, M, P et Q qui sont susceptibles d'avoir la valeur "VIDE", j'aimerai donc rechercher toute les cellules de ces colonnes contenant cette valeur et ensuite les effacer.

Pouvez-vous me donner un code pour ca ?

Merci !

Bonsoir

Et avec Rechercher/Remplacer (Ctrl + h) ce n'est pas bon ?

Si, bien sûr ca marche, j'aimerais juste que ce soit en automatique à l'ouverture du fichier, Ou bien sur un bouton que je placerais dans la feuille.

Bonjour

Avec un petit fichier ?

Le fichier est très imposant et en plus en lien avec un autre.

Mais le voici bien épuré. En gros il faut que je supprime tous les "VIDE" pour que les valeurs de la seconde feuille apparaissent.

Merci !

Bonsoir

Remplaces la macro actuelle par celle-ci : Module ThisWorkbook

Option Explicit

Private Sub Workbook_Open()
Dim Cel As Range
Dim ModeCalcul  As Integer

  Call FigeValeurSemaine

  With Application
    .ScreenUpdating = False
    ModeCalcul = .Calculation
    .Calculation = xlCalculationManual
  End With
  With Sheets("Données")
    Set Cel = .Cells.Find(what:="VIDE", LookIn:=xlValues, lookat:=xlWhole)
    If Not Cel Is Nothing Then
      Do
        Cel.ClearContents
        Set Cel = .Cells.FindNext(Cel)
      Loop While Not Cel Is Nothing
    End If
  End With
  Application.Calculation = ModeCalcul
End Sub

C'est juste parfait !

Merci à toi.