feuil = "MOIS EN COURS"
Set Cell = Range("O6") '1ère cellule source
If valeur = "" Then
valeur = GetValueWithADO(fich, feuil, Cell)
mavaleur01 = "0," & Mid(valeur, 4, 3)
End If
Set Cell = Range("O46") '2ème cellule source
If valeur = "" Then
valeur = GetValueWithADO(fich, feuil, Cell)
mavaleur02 = "0," & Mid(valeur, 4, 3)
End If
mavraivaleur = mavaleur01 & " / " & mavaleur02 'ligne uniquement pour vérifier,
'à supprimer si tu mets msgbox mavaleur01 & " / " & mavaleur02
msgbox mavraivaleur