Bonsoir,

Je te suggère ceci :
*********************************************************
Dim sh As Excel.Worksheet, x As Long, i As Integer

Set sh = Application.ThisWorkbook.Worksheets("NomFeuille")

For x = sh.Range("A" & Application.Rows.Count).End(xlUp).Row To 2 Step -1
If sh.Range("A" & x).Value Like "*Data*" Then
For i = 1 To 7
sh.Rows(x).Delete
Next i
End If
Next x

Set sh = Nothing

End Sub
************************************************************

Cordialement,

PGZ

Bonjour,

Un grand merci pour votre aide. Ca marche impeccable !!!
Cependant il me manque juste une requête pour que ce soit parfait.
Il faudrait que la ligne au-dessus de la valeur trouvée se supprime également, ce qui n'est pas le cas pour le moment.

Merci encore !!!

Re bonjour,

C'est bon j'ai réussit à trouver en cherchant un peu et en bidouillant :-)
Voici ce que celà donne :

Dim sh As Excel.Worksheet, x As Long, i As Integer

Set sh = Application.ThisWorkbook.Worksheets("Test")

For x = sh.Range("A" & Application.Rows.Count).End(xlUp).Row To 2 Step -1
If sh.Range("A" & x).Value Like "*Data*" Then
For i = 1 To 7
sh.Rows(x - 1).Delete
Next i
End If
Next x

Set sh = Nothing

End Sub





Merci encore pour votre aide, j'ai franchit une nouvelle étape dans la compréhension des macros grâce à vous !!!!