Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Ligne As Long, derlig As Long, LigVide As Long
derlig = Range("A65536").End(xlUp).Row + 1
'Evenement sur la colonne J
If Not Intersect(Target, Range("J2:J" & derlig)) Is Nothing Then
If Not Target Is Nothing Then
With Sheets("CAISSE")
LigVide = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & LigVide).Value = Range("A" & Target.Row).Value
'Faut-il extraire le mois de la colonne B ou C de la feuille "FACTURATION"
'.Range("B" & LigVide).Value = Range("B" & Target.Row).Value
.Range("C" & LigVide).Value = Range("B" & Target.Row).Value
.Range("D" & LigVide).Value = Range("C" & Target.Row).Value
.Range("E" & LigVide).Value = Range("D" & Target.Row).Value
.Range("F" & LigVide).Value = Range("E" & Target.Row).Value
.Range("G" & LigVide).Value = Range("F" & Target.Row).Value
.Range("H" & LigVide).Value = Range("H" & Target.Row).Value
.Range("I" & LigVide).Value = Range("G" & Target.Row).Value
.Range("J" & LigVide).Value = Range("I" & Target.Row).Value
End With
Ligne = Target.Row + 1
Range("A" & Ligne).Select
End If
End If
End Sub