Target.Cells.Count / Cellule par cellule

Private Sub Worksheet_Change(ByVal Target As Range)

Dim iTabModif As Integer, i As Integer
Dim Modifications As Boolean
Dim NomFichier As String
Dim MonDossier As String
Dim TCM() As Variant '(Tableau des Cellules Modifiées)

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 > 0 Then
    ReDim TCM(1 To Target.Cells.Count)
    For i = 1 To Target.Cells.Count
        TCM(i) = Target(1).Value
    Next i
End If
End Sub

Public TCM() As Variant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim I As Integer

If Target.Cells.Count > 1 Then 'ou >= 1 je ne sais pas...
    ReDim TCM(1 To Target.Cells.Count)
    For I = 1 To Target.Cells.Count
        TCM(I) = Target(I).Value
    Next I
End If
End Sub