Bonsoir à tous,
Comme le souligne James007, fusionner tes cellules, c'est pas top.
Essaie plutôt ceci :
Sub test()
With Range("a5", Range("a" & Rows.Count).End(xlUp)).Resize(, 2)
.Value = Evaluate("if(countif(offset(" & .Address & ",,,row(1:" & _
.Rows.Count & "))," & .Address & ")=1," & .Address & ","""")")
End With
End Sub
klin89