Fonction: programmer division de cellules

Donc ce que je t'avais répondu est une macro que tu dois copier dans toutes les feuilles où tu as cette division à faire. Elle se déclenchera à chaque fois qu'un valeur de la zone (que tu auras définie) sera modifiée.
Je te rajoute quelques commentaires pour que tu comprennes mieux

Sub Worksheet_Change(ByVal Target As Range)  
' Target représente la cellule où se fera le calcul

If Not Intersect(Target, Range("D2:D10")) Is Nothing Then 
' si cette cellule se trouve dans la zone D2:D10 ( à redéfinir en fonction de ton fichier) 
  Col = Target.Column   'numero de la colonne de cette cellule
  Lig = Target.Row  'numero de la ligne de cete cellule
  Target.Value = Cells(Lig - 1, Col).Value / Cells(Lig - 1, Col - 1).Value 
  ' ta cellule = à celle du dessus / celle au dessus à gauche 
End If  

End Sub

Après, si tu veux absoluement passer par une formule, tu peux taper

=D5/C5

dans ta cellule D6 puis incrémenter cette formule sur la colonne.

J'ai pas tout compris ce que tu voulais mais ça pourra t'aider à commencer :

Sub Worksheet_Change(ByVal Target As Range)  

If Not Intersect(Target, Range("D2:D10")) Is Nothing Then  
  Col = Target.Column  
  Lig = Target.Row  
  Target.Value = Cells(Lig - 1, Col).Value / Cells(Lig - 1, Col - 1).Value  
End If  

End Sub

Bonjour matthieumagl.

"1/j'ai des feuilles excel avec plein de donnees
2/ je dois faire de nombreuses operations avec ces donnees "

Il faudrait au moins savoir où sont les cellules avec des données et celles où il faut mettre de formules, non ?

Sinon une procédure consiste simplement à donner un nom à ta formule !
Tu procèdes comme pour définir un nom de plage, mais en te plaçant dans la cellule contenant la formule =D5/C5
Il me faudra tester sur Excel 2007, car je constate que ça ne fonctionne pas sous Excel 2011 (Mac) ...

Bonjour

une fonction personnalisée comme tu sembles le demander

Function diviser_sp(cellule As Range) As Double
Application.Volatile
With cellule
     diviser_sp = .Offset(-1, 0) / .Offset(-1, -1)
End With
End Function

si le dénominateur = 0 ou rien la fonction retourne "#VALEUR"