Effacer le "contenu" des cellules d'une ligne SI

Bonjour

Besoin d'aide!

fichier joint, merci d'avance

Nonno

Bonsoir,

une proposition :

Sub Init()
    For i = 11 To 42
        If Cells(i, 2) = "" Then Cells(i, 2).Offset(, 1).Resize(1, 15) = ""
    Next i
End Sub

@ bientôt

LouReeD

Sub effacer()
     With Range("B10:B42")     'le column B
          On Error Resume Next
          Set c = .SpecialCells(xlCellTypeBlanks)     'tous les cellules vides
          If c Is Nothing Then Exit Sub     'stop s'il n'y a pas
          On Error GoTo 0
          Intersect(c.EntireRow, .Resize(, 16)).ClearContents     'effacer !
     End With
End Sub

Bonsoir BsAlv !

@ bientôt

LouReeD

Merci LouRed, merci BsAlv

Vous êtes des "Chefs"

Bonne journée

Nonno

Bonsoir,

merci @ vous pour ce retour et remerciements !

@ bientôt

LouReeD