VBA

nan cela ne marche pas
je vous montre ma procédure:
Tout d'abord l'emplacement du mot chaussée est variable et peut etre situé dans la plage de cellule essai1 qui s'étend de A1 a J1

1er cas:
Chaussée est en A1
Sub essai()
    Dim Cellule As Range
    For Each Cellule In Range("essai1")
        Select Case Cellule.Value							
            Case "Chaussée"										ici j'aimerais que lorsque mon select s'arrète sur ma case chaussée, je peux récupérer le nom de cette 												cellule (ex:A1)
                If Cells(7, 13) = "Trafic Normal GB3" Then						Ensuite pour les cases en rouge ce n'est q'un décaler d'une ligne 
            Cells(1, 1) = "2,5 cm BBTM + 4cm BBSG"						Explication: Chaussée est en A1 donc "2,5 cm BBTM + 4cm BBSG" sera en A2
                End If
                If Cells(7, 13) = "Trafic Fort GB3" Then							Cette procédure marche que si chaussée est en A1 mais si elle est en B1 cela ne fonctionne plus
                    Cells(1, 1) = "2,5 cm BBTM + 6cm BBSG"						(voir cas 2)
                End If											
                If Cells(7, 16) = "CF 1 Ep : 40cm" Then
                    Cells(2, 1) = "15 cm GNT 0/31,5mm + 25 cm GNT 0/80mm"
                End If
            Case "Caniveau"
                If Cells(8, 9) = "Trafic Normal EME2" Then
                 Cells(12, 9) = "eeee"
                 End If
        End Select
    Next
End Sub

2e cas:
Chaussée est en B1
Sub essai()
    Dim Cellule As Range
    For Each Cellule In Range("essai1")
        Select Case Cellule.Value							
            Case "Chaussée"										ici j'aimerais que lorsque mon select s'arrète sur ma case chaussée, je peux récupérer le nom de cette 												cellule (ex:B1)
                If Cells(7, 13) = "Trafic Normal GB3" Then						Ensuite pour les cases en rouge ce n'est q'un décaler d'une colonne
            Cells(1, 2) = "2,5 cm BBTM + 4cm BBSG"						Explication: Chaussée est en B1 donc "2,5 cm BBTM + 4cm BBSG" sera en B2
                End If
                If Cells(7, 13) = "Trafic Fort GB3" Then
                    Cells(1, 2) = "2,5 cm BBTM + 6cm BBSG"
                End If
                If Cells(7, 16) = "CF 1 Ep : 40cm" Then
                    Cells(2,2 ) = "15 cm GNT 0/31,5mm + 25 cm GNT 0/80mm"
                End If
            Case "Caniveau"
                If Cells(8, 9) = "Trafic Normal EME2" Then
                 Cells(12, 9) = "eeee"
                 End If
        End Select
    Next
End Sub
et ainsi de suite