Suppression cellules avec décalage

Perso, j'essayerais de faire une macro :
- faire un tri des lignes sur la colonne "rendu"
- puis chercher la première ligne "OUI"
- supprimer toute les lignes à partir du premier "OUI".

A+ 

Je suis entrain de chercher la macro qui correspond le mieux, cependant je voudrais pouvoir supprimer que les cellules et non la ligne en entière.

Bonjour,

Vous êtes dans la m^me classe ?
https://forums.commentcamarche.net/forum/affich-16923075-excel-macro-supprimer-ligne-si-c-non-q

Merci pour ta sage réponse michel_m.

Doucement les cocos.
Je suis tranquillement au boulot et ne connais pas se Geoda.

Autrement dis se n'est pas la ligne que je veux supprimer mais mes cellules et sans décalage. J'ai ce programme mais il me fait un décalage de mes cellules vers la gauche.
Comment l'éviter?

Sub EffAceLigne()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("D65536").End(xlUp).Row To 2 Step -1
If Cells(i, 4) = "OUI" Then Range("A" & i & ":" & "D" & i).Delete
Next i
Application.ScreenUpdating = True
End Sub

Merci d'avance.

Je ne dis pas le contraire, ce fut juste une question de hasard.
Merci pour le .Clearcontents la macro fonctionne correctement.
Bonne continuation a vous.
Cordialement.

De toutes façons, il y a aussi la même question, et pas de veoda, des réponses sur DVP et XLD (et l'origine du OUI et Non sur XL-pratique )....

https://www.excel-downloads.com/threads/suppression-cellules-avec-decalage.137884/
https://www.developpez.net/forums/d888350/logiciels/microsoft-office/excel/suppression-cellules-decalage/

Bien entendu mon but étant de trouver une solution à mon fichier excel et par conséquent à ma base de donnée. je cherche des solutions sur le maximum de forums possible ayant d'autre objectifs à répondre lors de ma journée de travail et n'ai pas le temps de m'occuper des soucis de concurrence entre les forums que cela n'en déplaise à Michel_m.

Bonne continuation à vous.

Voici une solution qui convient.

Sub Macro1()
Range("A1").Select
DerLigne = Selection.End(xlDown).Row
For i = DerLigne To 2 Step -1
If Cells(i, 4).Value = "OUI" Then
Range("A" & i & ":D" & i).Select
Selection.Delete Shift:=xlUp
End If
Next

End Sub

Bonne continuation.

Le principal, c'est que plusieurs bénévoles bossent pour toi par solidarité, pas vrai ?

ayant d'autre objectifs à répondre lors de ma journée de travail

hé bé, au moins, tu ne te prends pas au sérieux, tes collègues, pardon! tes subalternes, doivent se réjouir quotidiennement de te côtoyer

Pauvre enfant.
A quoi sert un forum a ton avis? De plus la solution je l'ai trouvé avec un de mes collègues qui se réjouit de tes messages.
Aurais-je touché à ton intégrité ?
Un grand merci à toi pour ton aide et pour tes solutions pertinentes.
Au plaisir mich mich.