Bonjour à tous !

Je suis face à un problème que je n'arrive pas à solutionner, et mes recherches Internet sont infructueuses

Je souhaite fusionner deux cellules faisant parties d'une boucle, voici une partie de la macro en question :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
                            For j = 7 To 35
                                    If Hor.Cells(4, j) = Hdeb Then
                                    Hor.Cells(i, j) = Hor.Cells(i, 5) + 1
                                    'Dim alpha As Range
                                    Set alpha = Hor.Cells(i, j).Range
                                    'MsgBox alpha
                                    End If
                                    If Hor.Cells(4, j) = Hfin Then
                                    Hor.Cells(i, j) = Hor.Cells(i, 5) + 1
                                    'Dim beta As Range
                                    Set beta = Hor.Cells(i, j).Range
                                    End If
                                    Hor.Select
                                    Range(alpha & ":" & beta).Select
                                    Selection.Merge
                            Next
QUand je fais tourner ma macro il m'arrete sur la ligne Range(alpha & ":" & beta) et me dit qu'il y a une erreur.

QUelqu'un aurait il une idée sur :
- comment déclarer une cellule en variable
- fusionner deux cellules déclarées préalablement en variable

MErci à vous !