Bonjour,
Tu peux tester le code suivant :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A15:G36")) Is Nothing Then Exit Sub
If IsEmpty(Range("C44")) Then
Application.EnableEvents = False
MsgBox "Merci de tout d'abord saisir le N° de Dossier en C44", 48, ""
Target.Value = ""
Application.EnableEvents = True
End If
End Sub