Bonjour,
Je reçois un classeur comportant des fiches de renseignement, 4 fiches par classeur tous les mois (150 - 200 fiches).
Je dois retravailler chacune de ces fiches, aussi j'essaie de le faire par macro.
Je voudrai donc une macro qui ne puisse fonctionner qu'une seule fois. C'est à dire, supprime les lignes qui ne concerne pas la personne. Ensuite elle ne sert plus à rien.
J'ai fais ceci,mais c'est pas bon.
En vous remerciant sincèrement.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub Worksheet_Activate()
    If Cpt = 0 Then 
    Cpt = 1 Exit Sub
    Rows("142:188").Delete Shift:=xlUp
        Rows("3:95").Delete Shift:=xlUp
    Range("A4").Select
End Sub