Bonjour,

j'ai un petit soucis d'exécution !

voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells("A" & Target.Row).Value = "" Then
    Range("A2").CurrentRegion.Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub
j'ai une erreur lors de son exécution :
Erreur d'exécution '13':
Incompatibilité de type
Une idée ?