Comptabilisation dans colonne et suppression de lignes

Bonjour,

Je suis confronté à une problématique qui est la suivante :

Un classeur ouvert avec x onglets qui ont tous la même structure sauf le 1er, nommé "Feuill1" sur laquelle la macro ne doit pas s'appliquer.

Dans chaque onglet (Sauf le 1er nommé "Feuill1" une colonne "D" dont la configuration (en partant du haut) est toujours la même et commençant (ou non mais peu importe) par une série d'étoiles. Elle se poursuit par une série de nombres qui ne nous intéressent pas non plus. Elle se termine en revanche par une autre série d'étoiles et c'est cette dernière série qu'il s'agit de comptabiliser afin d'en trouver la somme. Cette somme doit être précédée dans la même cellule de la lettre "P" majuscule. Il s'agit ensuite de supprimer toutes les lignes se trouvant entre le dernier nombre de la colonne "D" et le résultat trouvé.

Je joins un fichier exemple au cas où je n'aurais pas été très clair.

Merci pour vos réponses.

Bonsoir

Essaye

Sub Test()
Dim i As Integer, Derlg As Integer, x As Integer, result As Integer
Application.ScreenUpdating = False

For i = 2 To Sheets.Count
    With Sheets(i)
        Derlg = .Range("D65536").End(xlUp).Row
        .Range("IV1").FormulaR1C1 = "=MATCH(9^9,C4)"
        x = .Range("IV1").Value
        result = Derlg - x
        .Range("D" & Derlg + 1) = "P" & result
        .Rows(x + 1 & ":" & Derlg).Delete
        .Range("IV1").ClearContents
        End With
Next i

End Sub

Amicalement

Nad

Merci Nad pour ta réponse mais cela ne marche pas. Rien ne se passe...

Bonsoir

Oups ! En éditant mon message pour mettre la formule en IV1 au lieu de Z1 j'ai oublié de remplacé un Z1

Avec le fichier

Amicalement

Nad