Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:G32")) Is Nothing Then
' si tu modifie (tapes) quelque chose dans la zone B3:G32 alors
If Target.Column = 2 Then Enfant1
'si c'est en colonne 2 donc B alors on lance la macro "Enfant1"
If Target.Column = 3 Then Enfant2
'idem
If Target.Column = 4 Then Enfant3
If Target.Column = 5 Then Enfant4
If Target.Column = 6 Then Enfant5
If Target.Column = 7 Then Enfant6
End If
End Sub