Rebonjour de la Martinique

Voilà, maintenant que cela fonctionne, j'aimerais ecrire dans la colonne en dessous a partir du moment ou la cellule n'est pas vide, sinon celle d'en dessous.
Le hic c'est que se sont des cellules fusionner. Et avec ce code je selectionne toujours la même cellule.
Merci d'avance pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub CB_OK2_Click()
 Dim TheDate As Long, Index As Variant
 
    TheDate = Range("A4")
 
    With Worksheets("Planning")
 
        Index = Application.Match(TheDate, .Range(.Cells(3, 1), .Cells(3, .Columns.Count)), 0)
 
        If IsError(Index) Then
 
            MsgBox "Résultat négatif. Rien trouvé.", _
                   vbOKOnly + vbInformation, _
                   "Résultat"
 
        Else
 
            'MsgBox "La date '" & Format(TheDate, "dd/mm/yyyy") & "' existe. Elle est située en cellule '" & _
                   '.Cells(3, Index).Address(0, 0) & _
                   '"' de la plage de cellules.", _
                   'vbInformation + vbOKOnly, _
                   '"Résultat"
 
            .Cells(3, Index).End(xlDown).Offset(1, 1).Select
 
        End If
 
    End With
 
'ActiveCell = "Test Cellule"
End Sub