Sub test()
Dim cellule As Range, memCellule() As String, i As Integer, test As Boolean, cpt As Integer
ReDim memCellule(1 To 1)
For Each cellule In Selection.Cells
test = False
For i = LBound(memCellule) To UBound(memCellule)
If cellule.MergeArea(1, 1).Address = memCellule(i) Then test = True
Next i
If Not test Then
cpt = cpt + 1
ReDim Preserve memCellule(1 To cpt)
memCellule(cpt) = cellule.MergeArea(1, 1).Address
'coder ici
MsgBox cellule.Text
End If
Next cellule
End Sub