Private Sub Worksheet_Change(ByVal Target As Range)
Dim iTabModif As Integer, i as Integer
Modifications = True
' Modification 201911115 - Mise en place d'un fichier LOG pour les modifications dans l'onglet CR
NomFichier = Format(Date, "yyyymmdd") & " - " & Format(Time, "hhmm")
MonDossier = "C:\User\" & Right(Application.UserName, 7) & "\Fichiers CdC\"
' Création du dossier pour accueillir les fichiers de suivi/log
If Len(Dir(MonDossier, vbDirectory)) = 0 Then
MkDir (MonDossier)
End If
Open MonDossier & "Modifications-CR.txt" For Append As #1 ' Ouverture du fichier LOG
If Target.Cells.Count > 1 Then
For i = 1 To Target.Cells.Count
' En admettant que je modifie 5 cellules d'un coup entre $H$5:$H$9 en supprimant le contenu
' Mettre la valeur de chaque cellule modifiée dans un tableau
' mais je n'arrive pas à récupérer la valeur de chaque cellule :-(
Next i
End If
End Sub