Private Sub Worksheet_Change(ByVal Target As Range)
Dim CheckRange As Range
Dim aCell As Range
[B] If Not Intersect(Target, Range("Y")) Is Nothing Then[/B]
With Target.Font
.Name = "Arial"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
[B]If Not Intersect(Target, Range("Z")) Is Nothing Then[/B]
With Target.Font
.Name = "Arial"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Target
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.wrapText = True
.MergeCells = True
End With
Target.Rows.EntireRow.AutoFit
End If
End Sub
Merci d'avance pour votre aide :-)