Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [G:G], Me.UsedRange)
If Target Is Nothing Then Exit Sub
For Each Target In Target
If LCase(Target.Text) = "x" Then
Target.Offset(, 1) = "Travail bien fait !"
ElseIf IsEmpty(Target) Then
Target.Offset(, 1) = ""
End If
Next
End Sub