السلام عليكم الكلمة المبحوث عنها في العمود الثاني مثلا، في جدول يحوي مئة سطر بالتوفيق ان شاء الله
For i = 1 To 100 If Cells(i, 2).Value = "VOTRE MOT" Then For j = i - 6 To 1 Step -1 Cells(j, 2).EntireRow.Delete Next j End If Next i