Private Sub worksheet_change(ByVal target As Range)
Dim Isect As Range
Set Isect = Intersect(target, Range('g32'))
If Not Isect Is Nothing And Range('g32').Value = 'Personnalisée' Then
Range('g34') = InputBox('Saisissez le thème de la formation souhaitée !', 'Formation personnalisée')
End If
End Sub