Private Sub Worksheet_Change(ByVal Target As Range)
If not Intersect(Target, Range("D3")) Is Nothing Then
Range("D6 : M10").Select
'ou Range("C10:M10").Select ?
End If
End Sub
ça dépend de ce qu'on veut faire:je ne comprends pas comment et quand utiliser [If Not Intersect] ou [If Intersect]
Existe il un support de cours spécifique à ce sujet ?