[COLOR=blue]Sub[/COLOR] GetComments()
[COLOR=blue]Dim[/COLOR] i [COLOR=blue]As[/COLOR] [COLOR=blue]Byte[/COLOR]
[COLOR=blue]For[/COLOR] i = 1 To 5
[COLOR=blue]With[/COLOR] Sheets([I]"Commentaires"[/I] & i)
.Range([I]"H10:J"[/I] & .Range([I]"H"[/I] & .Rows.Count).[COLOR=blue]End[/COLOR](xlUp).Row).Copy _
Destination:=Sheets([I]"Récapitulatif"[/I]).Range([I]"G"[/I] & .Rows.Count).[COLOR=blue]End[/COLOR](xlUp).Offset(1).Resize(, 3)
[COLOR=blue]End[/COLOR] [COLOR=blue]With[/COLOR]
[COLOR=blue]Next[/COLOR] i
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]