Sub collagecom()
Dim Mois As Variant
Dim Commentaire As Variant
Dim C As Variant
Mois = Sheets("feuil1").Range("E5")
Sheets("commentaire").Select
For Each C In Sheets("commentaire").Range("D4:O7")
If C.Offset(0, 0) = Mois Then Commentaire = C.Offset(1, 0)
Next C
Sheets("chambre").Range("B10") = Commentaire
End Sub