Imbriqué for ........ next ?????

Sub test()

Dim Cel, myRange As Range
Dim i As Integer

Set myRange = Range("G3:J4")

    For i = 2 To 6
    
        For Each Cel In myRange
            
            If Range("B" & i).Value <> "" Then

                If Range("B" & i).Value = Cel.Value Then MsgBox "Produit en stock"
            
            End If
            
        Next Cel
        
    Next i

End Sub

Sub test2()

Dim c As Range
Dim i As Integer

For i = 2 To 6

If Range("B" & i).Value = "" Then GoTo Borne
    With Range("G3:J4")
    
        Set c = .Cells.Find(Range("B" & i).Value, , xlValues, xlWhole)
        
            If Not c Is Nothing Then
                
                MsgBox "Produit en stock"
                
            End If
            
    End With
    
Borne:
Next i
End Sub

Dim cellule As Range
For y = 2 To 6
For Each cellule In Range("G3:J4")
If Range("B" & y).Value = cellule Then MsgBox ("Produit en stock", ............................")
Next cellule
Next y

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
Application.EnableEvents = False
For Each Cel In Me.[B2:B6]
   If Cel.Value <= 109 Or Cel.Value >= 119 Then Cel.Offset(, 2).ClearContents
   If Cel.Value <> "" Then If Not Me.[G3:J4].Find(What:=Cel.Value, LookIn:=xlValues, _
      LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False) Is Nothing _
      Then MsgBox "Produit " & Cel.Value & " en stock", vbOKOnly, "Info stock"
   Next Cel
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)  Dim Lig As Long, Critere As Long, MaPlage As Range, MaVal As Long
  ' Si modification hors de la zone B2:B6, on sort
  If Intersect(Target, Range("B2:B6")) Is Nothing Then Exit Sub
  ' Si B <= 109 ou >= 119 alors effacer cellule colonne D
  If Target.Value <= 109 Or Target.Value >= 119 Then Range("D" & Target.Row).ClearContents
  ' Vérifier si en stock
  ' Définir la plage de recherche
  Set MaPlage = Sheets("Sheet1").Range("G3:J4")
  ' Définir le critère de recherche
  Critere = Target
  ' pour chaque ligne
  MaVal = Application.CountIf(MaPlage, Critere)
  If MaVal > 0 Then
    MsgBox "Produit en stock", vbOKOnly, "Info stock"
  End If
End Sub

Private Sub Worksheet_Change(ByVal C As Range)
  If C.Count > 1 Then Exit Sub
  If Intersect(C, Range("B2:D6")) Is Nothing Then Exit Sub
  If C.Column = 2 Then
    If C.Value <= 109 Or C.Value >= 119 Then C.Offset(, 2) = ""
    If Application.CountIf(Range("G3:J4"), C) > 0 Then MsgBox "Produit en stock", vbInformation, "Info stock"
  Else
    C.Offset(, -2) = C.Offset(, -2) 'pour relancer l'évènement
  End If
End Sub