Private Sub Spreadsheet1_SelectionChange()
Dim c As Range
' ligne correcte
UserForm1.Spreadsheet1.Worksheets(1).Cells(1, 1) = "ok"
' si sélection je récupère bien la plage
MsgBox (Spreadsheet1.Selection.Address)
' mais impossible de boucler dessus
For Each c In Spreadsheet1.Selection
c = 3
Next c
' impossible de boucler également sur une plage fixée
For Each c In UserForm1.Spreadsheet1.Worksheets(1).Range("A2:A5")
c = "ok"
Next
End Sub