Sub Macro1()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim li As Long 'déclare la variable li (LIgne)
With Sheets("STAT") 'prend en compte l'onglet "STAT"
dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit las dernière ligné éditée dl de la colonne 1 (=A)
For li = dl To 2 Step -1 'bocle inversée de la dernière ligne dl à la ligne 2
'si la valeur de la cellule en colonne H est inférieure à 0.63 ou supérieure à 0,66, supprime la ligne
If .Cells(li, 8) > 0.66 Or .Cells(li, 8) < 0.63 Then .Rows(li).Delete
Next li 'prochaine ligne de la boucle
End With 'fin de la prise en compte de l'onglet "STAT"
End Sub