Bonjour a tous

Je ne comprend meme plus mes programmes, je pensais avoir mis en place un programme qui ne prennait en compte que les éléments que je voulais, mais non, j'ai oublié

J'ai fait le code, mais erreur

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'Saisie du Secteur à analyser
Dim Sector As String
 
Sector = UCase(InputBox("Enter sector", "Identify Sector", "MEASU"))
If Sector = "" Then Exit Sub
 
'Efface les données qui ne sont pas dans Sector
Dim derlign As Long
 
derlign = Cells(65536, 1).End(xlUp).Row
    For M = 1 To derlign
        If Cells(M, 1).Value <> Sector Then
            Rows("M:1").Select
            Selection.Delete Shift:=xlUp
        End If
    Next M
il ne veu pas de "Rows("M:1").Select"

Le but étant d'effacer les lignes qui ne sont pas da mon sector

Merci