Dim i As Long, j As Long, h As Long, k As Long
Application.DisplayAlerts = False 'désactive la boîte de dialogue de la fusion
'étude colonne C (3)(code propriété) pour fusion des propriétés
For i = 1 To Range("C65536").End(xlUp).Row - 1
j = i + 1
While Cells(j, 3) = Cells(i, 3)
'Fusion des colonnes se rapportant à la propriété
Range(Cells(i, 1), Cells(j, 1)).MergeCells = True
Range(Cells(i, 2), Cells(j, 2)).MergeCells = True
Range(Cells(i, 3), Cells(j, 3)).MergeCells = True
Range(Cells(i, 4), Cells(j, 4)).MergeCells = True
Range(Cells(i, 5), Cells(j, 5)).MergeCells = True
Range(Cells(i, 6), Cells(j, 6)).MergeCells = True
Range(Cells(i, 7), Cells(j, 7)).MergeCells = True
Range(Cells(i, 8), Cells(j, 8)).MergeCells = True
j = j + 1
Wend
'étude colonne E (15)(location) pour fusion des locations
For h = i To j - 2
k = h + 1
While Cells(k, 15) = Cells(h, 15) And k < j
'Fusion des colonnes se rapportant à la location et au terrier
Range(Cells(h, 13), Cells(k, 13)).MergeCells = True
Range(Cells(h, 14), Cells(k, 14)).MergeCells = True
Range(Cells(h, 15), Cells(k, 15)).MergeCells = True
Range(Cells(h, 16), Cells(k, 16)).MergeCells = True
Range(Cells(h, 17), Cells(k, 17)).MergeCells = True
Range(Cells(h, 18), Cells(k, 18)).MergeCells = True
Range(Cells(h, 19), Cells(k, 19)).MergeCells = True
Range(Cells(h, 20), Cells(k, 20)).MergeCells = True
k = k + 1
Wend
h = k - 1
Next h
i = j - 1
Next i
Application.DisplayAlerts = True 'réactive les boîtes de dialogue