Macro

Bonjour,

J'ai un fichier excel de ce type (cf photo) avec ce code.

Private Sub Worksheet_Change(ByVal Target As Range)

'concerne toute la feuille quand A dans une cellule (cas de ce modèle)
If Target.Cells.Value = "A" Then

's'il faut limiter la zone, écrire par exemple pour un champ B2:Z100
'If Target column >1 and Target column <27 and Target Row >1 and Target Row <101

'1° X décalage > même ligne et 5 colonnes

Target.Cells.Offset(0, 6).Value = "P"

'1° X décalage  > même ligne et 10 colonnes
Target.Cells.Offset(0, 11).Value = "P"

'1° X décalage  > même ligne et 13 colonnes
Target.Cells.Offset(0, 16).Value = "I"

'1° X décalage  > même ligne et 13 colonnes
Target.Cells.Offset(0, 30).Value = "I"

End If
End Sub

1. Comment faire pour que X se mette, toutes les 4 colonnes à partir du A, jusqu'à l'infini / temps ?

2. Est-il possible par exemple, pour la semaine 7, sur une page Word, qu'il s'inscrive dans un paragraphe le nom des personnes qui ont un "X", et dans un autre paragraphe le nom des personnes qui ont un "I", qu'il ne s'inscrive rien s'ils n'y en a pas ? Est-ce que l'on peut créer 1 page word par semaine, que l'on édite quand on le souhaite ?

Merci beaucoup pour vos réponses.