Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Bonjour,
Mets :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Range("B6:E49").Sort Range("B6"), xlAscending, Header:=xlNo
End If
End Sub
Daniel