XL 2019 VBA Définition d'un Range avec numéros de cellule

If compteur2 = 8 Then
    For Each cell In Range(Cells(1, 13), Cells(3, 15))
 '*********
 'Pour verif
    MsgBox Range(Cells(1, 13), Cells(3, 15)).Address
 '**********
        If cell.Interior.ColorIndex <> 3 Then
            Cells(1, 2).Value = cell.Value
            Cells(1, 2).Font.Bold = True
            Cells(1, 2).Font.ColorIndex = 5
        End If
    Next cell
End If

Sub test()
MsgBox Range(Cells(1, 13), Cells(3, 15)).Address
End Sub

For Each cell In Range(Cells(1, "M"), Cells(3, "O"))

Sub kk()
Dim cell As Range
compteur2 = 8 'pour test
Application.ScreenUpdating = False
[B1].Font.Bold = True: [B1].Font.ColorIndex = 5
If compteur2 = 8 Then
    For Each cell In Range(Cells(1, 13), Cells(3, 15))
        If cell.Interior.ColorIndex <> 3 Then
        tmp = tmp & ";" & cell.Value
        End If
    Next cell
End If
[B1] = Mid(tmp, 2)
End Sub