Dim annee As String annee = "" Range("A1").Activate While not rs.EOF If Not rs.Fields("annee").Value = annee Then ActiveCell.Value = rs.Fields("annee").Value annee = rs.Fields("annee").Value End If ActiveCell.Offset(0,1).Value = rs.Fields("client").Value ActiveCell.Offset(0,2).Value = rs.Fields("adresse").Value 'tu descends d'une ligne pour l'enregistrement suivant ActiveCell.Offset(1,0).Activate Wend