Et nous nous voudrions voir toujours un petit Bonjour commencer une discussion...Je voudrait insérer une X si la cellule n’est pas vide .
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing Then
If Not IsEmpty(Target) Then
If Target.Count = 1 Then
With Target.Offset(, 5)
.Value = "X"
.Font.Bold = -1
.BorderAround ColorIndex:=3, Weight:=xlThick
.HorizontalAlignment = xlCenter
End With
End If
End If
End If
End Sub