Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR="Green"]' permet de déclencher la macro à chaque fois qu'il y a une modification sur la feuille : "Feuil1" (car la macro est sur la "Feuil1")
' C'est pourquoi j'ai renommé tes onglets exactement pareil que les noms figurant dans tes listes de validation[/COLOR]
If Target.Column = 4 And Target.Row > 6 Then
[COLOR="Green"]' Si la colonne où a eu lieu la modification est la colonne 4 et le numéro de la ligne strictement supérieur à 6 alors[/COLOR]
With Sheets(Cells(Target.Row, 3).Value)
[COLOR="Green"]' lorsque dans les lignes ci-dessous je mettrais un [B][U]point[/U][/B] devant cela voudra dire que je travail sur la feuille dont le nom est égal à celui figurant dans la cellule : colonne 3, ligne : celle où à eu lieu la modification[/COLOR]
[U][B].[/B][/U]Range("A" & .[A65536].End(xlUp).Row + 1) = Range("A" & Target.Row)
[COLOR="Green"]' Cellule : "Feuil..." colonne A, ligne : à la suite de la dernière -> écrire ce qu'il y a
' Cellule : "Feuil1" colonne A, ligne : celle où a eu lieu la modification
' Bref : recopier le Nom de la ligne où à eu lieu la modification, sur l'onglet concerné[/COLOR]
[U][B].[/B][/U]Range("B" & .[B65536].End(xlUp).Row + 1) = Range("B" & Target.Row)
[COLOR="Green"]' Bref : recopier le Prénom de la ligne où à eu lieu la modification, sur l'onglet concerné[/COLOR]
End With
[COLOR="Green"]' Fin du With, bref je ne vais plus travailler sur la Feuil..., donc je ferme ma "balise" : With[/COLOR]
End If
[COLOR="Green"]' Fin du si, bref ma condition Si() s'arrête ici, donc je ferme ma "balise" : If[/COLOR]
End Sub
[COLOR="Green"]' Fin de la macro, donc je ferme ma "balise" : Private Sub[/COLOR]
