Private Sub Worksheet_Change(ByVal Target As Range)
With Range("a1").ListObject
If .ListRows.Count > 0 Then
If Not Intersect(Target, .DataBodyRange) Is Nothing Then
On Error GoTo Fin
Application.EnableEvents = False
.ListColumns(3).DataBodyRange.ClearContents
.ListColumns(3).DataBodyRange.Formula2R1C1 = "=[@[Prénom Poseur]]&""""&LEFT([@[Nom Poseur]],1)"
End If
End If
End With
Fin:
Application.EnableEvents = True
End Sub
Sub ViderTableau()
If Range("a1").ListObject.ListRows.Count > 0 Then Range("a1").ListObject.DataBodyRange.Delete
End Sub