طلب مساعدة في vba excel

[2009loulia]

السلام عليكم

رجاءا أعضاء المنتدى، راني حاصلة
حبيت نمحي أسطر من جدول لكن بالطريقة التالية و نتمنى نقدر نوصل الفكرة

ندير بحث على كلمة معينة و ابتداءا من هذي الكلمة يمحيلي كلش من بداية الجدول إلى 6 أسطر اللى قبل هذي الكلمة
و بالفرنسية

chercher un mot
supprimer toutes les lignes du début jusqu'à 6 lignes avant ce mot cherché

دخت و أنا نحاول والو

جزاكم الله خيرا ساعدوني

[__الهاوي__]

السلام عليكم
الكلمة المبحوث عنها في العمود الثاني مثلا، في جدول يحوي مئة سطر
بالتوفيق ان شاء الله

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