comme la piece jointe ne fonctionne pas voila la copie de la macro mon soucis et l'addition des valeurs des doublons j'ai un peut de mal avec les offset.
Sub somme_doublons()
Dim plage As Range
Dim nblignes As Long
'copie des données dans feuil3
Sheets("Horaire").Select
Range("F6:G21").Select
Selection.Copy
Sheets("Feuil3").Range("A2").PasteSpecial Paste:=xlValues
'tri du tableau
Sheets("feuil3").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'calcul du nb de ligne
Set plage = Range("A2", [A2].End(xlDown))
nbligne = plage.Count
'curseur sur la derniere ligne
ActiveCell.Offset(nbligne - 1, 0).Range("A1").Select
'le bug est ici
For i = 1 To nbligne
If ActiveCell.Value = ActiveCell.Offset(-1, 0) Then
ActiveCell.Value = ActiveCellValue + ActiveCell.Offset(-1, 0).Value
ActiveCell.Offset(-1, 0).Select
ActiveCell.EntireRow.Cells().Select
Selection.Delete Shift:=xlUp
Else
ActiveCell.Offset(-1, 0).Range("A1").Select
End If
Next i
end sub
donc si quelqu'un a la solution merci