Heures et date des saisies

[sellig 29]

Bonjour à tous,

J'utilise le code ci dessous pour déterminer l'heure, la date et le Numéro de cellule correspondant pour chaque saisie réalisée dans une feuille.
Le fichier correspondant est partagé sur un serveur, lorsque j'effectue une saisie de mon PC (au travail) la macro enregistre l'heure, date et Numéro de cellule conformément au code (Origine Pierre Jean) mais lorsqu'elle est effectuée par un autre utilisateur, seuls la date et l'heure de la saisie s'inscrivent (feuille "Listes"), il manque le numéro de cellule correspondante sur la colonne adjacente???
Difficile de connaitre le motif de ce dysfonctionnement puisque de mon PC cela fonctionne très bien, de plus, mes connaissances en visual basic sont assez limitées...
Pouvez vous m'aider à résoudre ce problème?
Merci d'avance pour votre aide



Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Long
If Target.Column = 4 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CA65536").End(xlUp).Row + 1
Sheets("Listes").Range("CA" & n) = Now
End If
If Target.Column = 5 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CC65536").End(xlUp).Row + 1
Sheets("Listes").Range("CC" & n) = Now
End If
If Target.Column = 6 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CE65536").End(xlUp).Row + 1
Sheets("Listes").Range("CE" & n) = Now
End If
If Target.Column = 7 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CG65536").End(xlUp).Row + 1
Sheets("Listes").Range("CG" & n) = Now
End If
If Target.Column = 8 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CI65536").End(xlUp).Row + 1
Sheets("Listes").Range("CI" & n) = Now
End If
If Target.Column = 9 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CK65536").End(xlUp).Row + 1
Sheets("Listes").Range("CK" & n) = Now
End If
If Target.Column = 10 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CM65536").End(xlUp).Row + 1
Sheets("Listes").Range("CM" & n) = Now
End If
If Target.Column = 11 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CO65536").End(xlUp).Row + 1
Sheets("Listes").Range("CO" & n) = Now
End If
If Target.Column = 12 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CQ65536").End(xlUp).Row + 1
Sheets("Listes").Range("CQ" & n) = Now
End If
If Target.Column = 15 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CS65536").End(xlUp).Row + 1
Sheets("Listes").Range("CS" & n) = Now
End If
If Target.Column = 16 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CU65536").End(xlUp).Row + 1
Sheets("Listes").Range("CU" & n) = Now
End If
If Target.Column = 17 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CW65536").End(xlUp).Row + 1
Sheets("Listes").Range("CW" & n) = Now
End If
If Target.Column = 19 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CY65536").End(xlUp).Row + 1
Sheets("Listes").Range("CY" & n) = Now
End If
If Target.Column = 20 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("DA65536").End(xlUp).Row + 1
Sheets("Listes").Range("DA" & n) = Now
End If
If Target.Column = 4 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CA65536").End(xlUp).Row
Sheets("Listes").Range("CB" & n) = Target.Address(0, 0)
End If
If Target.Column = 5 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CC65536").End(xlUp).Row
Sheets("Listes").Range("CD" & n) = Target.Address(0, 0)
End If
If Target.Column = 6 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CE65536").End(xlUp).Row
Sheets("Listes").Range("CF" & n) = Target.Address(0, 0)
End If
If Target.Column = 7 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CG65536").End(xlUp).Row
Sheets("Listes").Range("CH" & n) = Target.Address(0, 0)
End If
If Target.Column = 8 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CI65536").End(xlUp).Row
Sheets("Listes").Range("CJ" & n) = Target.Address(0, 0)
End If
If Target.Column = 9 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CK65536").End(xlUp).Row
Sheets("Listes").Range("CL" & n) = Target.Address(0, 0)
End If
If Target.Column = 10 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CM65536").End(xlUp).Row
Sheets("Listes").Range("CN" & n) = Target.Address(0, 0)
End If
If Target.Column = 11 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CO65536").End(xlUp).Row
Sheets("Listes").Range("CP" & n) = Target.Address(0, 0)
End If
If Target.Column = 12 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CQ65536").End(xlUp).Row
Sheets("Listes").Range("CR" & n) = Target.Address(0, 0)
End If
If Target.Column = 15 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CS65536").End(xlUp).Row
Sheets("Listes").Range("CT" & n) = Target.Address(0, 0)
End If
If Target.Column = 16 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CU65536").End(xlUp).Row
Sheets("Listes").Range("CV" & n) = Target.Address(0, 0)
End If
If Target.Column = 17 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CW65536").End(xlUp).Row
Sheets("Listes").Range("CX" & n) = Target.Address(0, 0)
End If
If Target.Column = 19 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CY65536").End(xlUp).Row
Sheets("Listes").Range("CZ" & n) = Target.Address(0, 0)
End If
If Target.Column = 20 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("DA65536").End(xlUp).Row
Sheets("Listes").Range("DB" & n) = Target.Address(0, 0)
End If
End Sub