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