Valeur cellule sous conditions

Option Explicit
'----------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Taille as string, Genre as string, Test As String
 Static Flag  As Boolean
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, Range("I117,I118,I139")) Is Nothing Then Exit Sub
    'vérif si les 3 cellules sont saisies
    If Application.CountA(Range("I117,I118,I139")) < 3 Then Exit Sub
    
    If Flag = False Then
        Flag = True 'empeche de reparcourir la procédure _
                                    lors de l'affection dans F142, D43 etd
'TON CODE.....
 ;.....
.......
Flag = False 'libère le blocage pour une nouvelle action
End If
    
End Sub

<code> 'If Target.Count > 1 Then Exit Sub SUPPRIME car cellules I à L fusionnées !!!
    If Intersect(Target, Range("I117,I118,I139")) Is Nothing Then Exit Sub
   'nettoyage si cellules I à L vides
    If Application.CountA(Range("I117,I118,I139")) = 0 Then: Range("D142:D146").ClearContents
    'vérif si les 3 cellules sont saisies
    If Application.CountA(Range("I117,I118,I139")) < 3 Then Exit Sub