Salut tout le monde , comme je suis nouveau avec le langage VBA je m'adresse à vous pour résoudre un probléme .
Alors j'ai un tableau excel comme suit 
A	Fréquence	Pourcentage	Fréquence	Pourcent.
			cumulée	cumulé
0	573	86.56	573	86.56
1	89	13.44	662	100
				
B	Fréquence	Pourcentage	Fréquence	Pourcent.
			cumulée	cumulé
0	642	96.98	642	96.98
1	20	3.02	662	100
				
C	Fréquence	Pourcentage	Fréquence	Pourcent.
			cumulée	cumulé
0	602	90.94	602	90.94
1	60	9.06	662	100
Alors j'ai pour objectif 3 ;
1) la ou ou la prémiere colonne vaut 1 je voudrais quelle prend la valeur de la case en deusus à pas -3 (par exemple le premier 1 sera remplacé par A .
et de supprimer les lignes entierment la ou la premier colonne vaut 0 ou bien la deuxiéme colonne vaut "fréquence".
d'ou j'ai écrit ce code mais ça fonctionne pas correctement .

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Sub TRI()
'
' TRI Macro
'
 
'
    Sheets("DATA").Select
 
    For II = 1 To 1000
    If (Sheets("DATA").Cells(II, 1) = "1") Then
    Sheets("DATA").Cells(II, 1) = 1 = Sheets("DATA").Cells(II - 3, 1)
    End If
    Next II
 
    Sheets("DATA").Select
     For II = 1 To 1000
    If (Sheets("DATA").Cells(II, 1) = "0") Then
    Selection.EntireRow.Delete
 
    End If
    Next II
 
     Sheets("DATA").Select
     For II = 1 To 1000
    If (Sheets("DATA").Cells(II, 2) = "Fréquence") Then
    Selection.EntireRow.Delete
 
    End If
    Next II
 
     Sheets("DATA").Select
     For II = 1 To 1000
    If IsEmpty(Sheets("DATA").Cells(II, 2) = " ") Then
    Selection.EntireRow.Delete
 
    End If
    Next II
 
 
 
 
 
End Sub
Merci davance.