Find sur cellules fusionnées

Je pense que la question est bête, mais je ne trouve pas de réponses ...

J'ai ma méthode find qui ne fonctionne pas sur le code:

Private Sub CommandButton1_Click()

Dim marche As String
Dim mcol As Integer, derLigne%

marche = ComboBox1

For i = 1 To 52 Step 2
    Worksheets("Art").Activate
    Set m = Worksheets("Art").Cells(1, i).Find(marche, LookIn:=xlValues, LookAt:=xlPart)
    If Not m Is Nothing Then
        mcol = m.Column
        MsgBox mcol
        derLigne = Worksheets("Artisans").Columns(mcol).End(xlUp).Row + 1
        Worksheets("Art").Cells(derLigne, mcol).Value = TextBox1
        Worksheets("Art").Cells(derLigne, mcol + 1).Value = TextBox2
    End If
Next

Unload UserForm2

End Sub

Dans l'onglet "Art", la recherche se fait sur la première ligne de la colonne A à la colonne AY. les cellules de cette première ligne sont fusionnées deux à deux (A&B, C&D ....). La variable "marche" est bien renseignée et la valeur est bien présente dans la plage de recherche.

Le problème doit donc venir de la fusion des cellules, mais je ne vois pas comment solutionner le pb.

Merci de votre aide

Bon, j'ai réussi à trouver une solution à mon problème (en gros, je dégage la fusion des cellules, j'effectue la recherche, et je refusionne le tout).

A savoir si c'est le mieux ...