If Not Intersect(Target, [Tab_PDCA]) Is Nothing Then
tablo = [Liste_Services]
If Cells(Target.Row, 1) <> "" And Cells(Target.Row, 6) <> "" Then
For i = 1 To UBound(tablo)
If tablo(i, 1) = Cells(Target.Row, 6) Then Abrev = tablo(i, 2)
Next i
Application.EnableEvents = False
Cells(Target.Row, 2) = Cells(Target.Row, 1) & Abrev
Application.EnableEvents = True
End If
End If