Private Sub Worksheet_Change(ByVal Target As Range)
'Si la cellule modifiée lors de l'appel de l'évènement Change
'est comprise dans la plage B2:B4 alors vérifier les valeurs par défaut
If Not Intersect(Target, Range("B2:B4")) Is Nothing Then
'Eviter le rappel de l'évènement si les lignes suivante change le contenu des cellules
Application.EnableEvents = False
'Contrôler le contenu des cellules et mettre les valeurs par défaut si besoin
If Range("B2") = "" Then Range("B2") = 30 'Internal marge
If Range("B3") = "" Then Range("B3") = 10 'External marge
If Range("B4") = "" Then Range("B4") = 15 'SFC
'Rétablir la gestion normale des évènements
Application.EnableEvents = True
End If
End Sub