XL 2010 supprimer une ligne sur d'autre feuilles en prenant référence sur une feuille journal

Bonjour le forum,

je fais appel aux JEDI du VBA.

Grace à des recherches personnels et parfois l'aide du forum je suis en train de créer un fichier compta pour une association

et là je bloque sur une macro
Je cherche : depuis une feuille "JOURNAL" supprimer des saisies sur d'autres feuilles (les différents compte)
j'ai en référence le nom de la feuille qui ce retrouve en colonne AQ et le numéro d'ordre qui ce trouve en colonne A
la condition : si la cellule dans les colonne AD et AO est non vide.

voici mon étude :

Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Sheets

Select Case Ws.Name
Case "6023 A", "60281 M", "60282 P", "6063 E", "6064 F", "60681 M", "60682 G", "607 A", "611 S", "6132 L", "616 P", "6185 F", "6231 A", "6238 DIVERS" _
, "6263 A", "627 F", "6414 I", "VIDE", "6571 A", "6586 C", "6713 D", "6718 A", "706 P", "707 M", "708 P", "74 C", "755 C", "756 C", "758 P", "7713 L"


Sheets("JOURNAL").Select
Dim M%
For M = 7 To Range("A65500").End(xlUp).Row
If Ws.Name = Cells(M, "AQ") Then
If Cells(M, "AD") <> "" And Cells(M, "AO") <> "" Then
With Ws 'aller sur la feuille :"....
For i = .Range("A65000").End(xlUp).Row To 2 Step -1 'la variante i ce trouve dans la colonne A
If CStr(.Cells(i, 1)) = Cells(M, "A").Value Then '
.Rows(i).EntireRow.Delete Shift:=xlUp ' retire la ligne de la variante i et remonte d'une ligne
End If
Next
End With
End If
End If
Next M
Case Else
'...Ici le code pour toutes les situations imprévus
End Select
Next Ws

malheureusement ne fonctionne pas ......
dans le fichier joint il faut cliquer sur le bouton du bas droite de la page de garde
et la mocro se trouve dans le module 2

Merci d'avance