Pt souci avec double clic

Bonjour à tous,

Pt souci avec double clic, voilà jai inséré le code ci-dessous dans le code feuille pour que lorsque je double-clic dans une cellule de la colonne "G", "Ici --->" s'incrive dans la cellule en étant centré.

Mon pt problème est que lorque je double_clic dans une autre cellule ailleurs que dans la colonne "G", la cellule est automatiquement centrée, ce que je ne veut pas .

Alors j'aimearais savoir comment modifier la formule.

D'avance merci à tous.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Columns("g:g"), Target) Is Nothing Then

ActiveCell.FormulaR1C1 = "Ici --->"

selection.Font.Bold = True

End If

With selection

.HorizontalAlignment = xlCenter

End With

End Sub

Bonjour,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Columns("G"), Target) Is Nothing Then
        With Target
            .FormulaR1C1 = "Ici --->"
            .Font.Bold = True
            .HorizontalAlignment = xlCenter
        End With
    End If
End Sub

A+

Bonsoir, merci à toi super sympa.

Bonne soirée.

Roland