If ct.MergeCells Then
adresse = ct.MergeArea.Address
'Découper l'adresse pour retrouver les numéros de colonnes
tmp = InStrRev(adresse, ":")
cellule1 = Left(adresse, Len(adresse) - tmp)
celdeb = Replace(cellule1, "$", "")
celdeb1 = Replace(celdeb, "A", "")
cellule2 = Right(adresse, Len(adresse) - tmp)
cellule = Replace(cellule2, "$", "")
cmpt = Replace(cellule, "A", "")
End If