' Traitement doublons Orléans demandes clôturées
Sheets("Feuil1").Select
Range("A3").Select
Do Until IsEmpty(ActiveCell)
ActiveCell.Value = StrConv(ActiveCell, vbUpperCase)
ActiveCell.Offset(1, 0).Select
Loop
Range("A3").Select
' Tri
' ActiveCell.CurrentRegion.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlYes
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
While ActiveCell <> ""
If ActiveCell = donnee1 Then
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
x = ActiveCell.Row
v = Cells(x, 11)
vt = vt + v
rep = MsgBox("Valeur total = " & vt, vbYes + vbInformation, "Valeur Total")
Range("A1").Value = vt
ActiveCell.Offset(1, 0).Select
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
Else
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Wend