Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim CelDest As Range
Dim Decal As Byte
Application.ScreenUpdating = False
If Sh.Name Like "UT*" And Not Intersect(Target, Sh.Columns(8)) Is Nothing Then
With Sheets("Plan d'actions")
Decal = .Rows(2).Find(Sh.Name).Column - 1
Set CelDest = .Range("A" & Rows.Count).End(xlUp)(2)
If CelDest.Row = 2 Then Set CelDest = .Range("A3")
CelDest = Target(1)
CelDest.Offset(, Decal) = "X"
If CelDest.Offset(-1, 4).HasFormula Then
CelDest.Offset(-1, 4).Resize(1, 2).AutoFill Destination:=CelDest.Offset(-1, 4).Resize(2, 2), Type:=xlFillDefault
End If
End With
End If
End Sub