Suppression Partielle ligne

Bonjour,
Vous avez bien ecrit suppression partielle!
ex:

Range("C4:G4").Delete Shift:=xlUp

Bonjour à tous les deux

ou bien
Range("C4:G4").ClearContents
qui se contente d'effacer le contenu des cellules

Cdlmnt

J'ai oublié de vous dire suppression d'une ligne à l'intérieur d'un tableau dans le cas où cette ligne est vide (Toutes les cellules de cette ligne ne contiennent pas du texte ou des nombres, mais les cellules de la même ligne , en dehors de ce tableau, peuvent en contenir).
Merci mon ami.

Re,

suppression plage de cellules si toutes les cellules sont vides (si j'ai bien compris)
exemple:

Sub test()
    NbCel_Vide = WorksheetFunction.CountBlank(Range("C4:G4"))       'cellules vides
    If NbCel_Vide = 5 Then      '5: de C a G
        Range("C4:G4").Delete Shift:=xlUp       'supprime plage
    End If
    MsgBox NbCel_Vide
End Sub

Désolé, mais ça n'efface pas les lignes vides.
ça les compte seulement.
A vous.

Re,

Je pense que nous ne voyons pas le problème de la même façon.
Peux tu envoyer la partie concernée de ton fichier, sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu
1) Tu vas dans https://www.cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse tu fais "Coller".

Cdlmnt