Bonjour,
Sub Supprimer_ligne()
For i = 1 To 40000
Cells(i, 1).EntireRow.Delete
If Cells(i, 1) = "" Then Exit Sub
Cells(i + 1).Select
Next i
End Sub
Bien sur le For sera à modifier suivant les données !
Pour la moyenne :
=MOYENNE(C2:C6)
http://cjoint.com/?BFqpChwCI9f
Message édité par JBARBE le 16-06-2012 à 15:30:06