If Target.Value = "Jocelyne 01" Then
With Sheets("Jocelyne")
ligvide = .Range("b65536").End(xlUp).Row + 1
.Cells(ligvide, 2) = Target.Offset(0, -5).Value
.Cells(ligvide, 3) = Target.Offset(0, -4).Value
.Cells(ligvide, 4) = Target.Offset(0, -3).Value
.Cells(ligvide, 5) = Target.Offset(0, -1).Value
.Cells(ligvide, 8) = Range("a1").Value
End With
ActiveWorkbook.Save
End If