[excel] formulation d'une variable

Public Sub comptePeriodeMoisDemi(ByVal j As Double, ByVal A As String, ByVal B As String, ByVal C As String, ByVal D As String)
Dim total As Integer

Sheets(1).Select

total = 0

    Range(A & Range(A & "65536").End(xlUp).Row + 1).Select
    Range(B, ActiveCell.Offset(-3, 0)).Select
    For Each Cell In Selection
        If Cell.Value = j - 0.5 And Cell.Offset(0, 1).Value = 2 And IsEmpty(Cell.Offset(0, 3)) And IsEmpty(Cell.Offset(0, 4)) Then
            total = total + 1
        End If
    Next
    
    Range(C & Range(C & "65536").End(xlUp).Row + 1).Select
    Range(D, ActiveCell.Offset(-1, 0)).Select
    For Each Cell In Selection
        If Cell.Value = j - 0.5 And Cell.Offset(0, 1).Value = 2 Then
            total = total + 1
        End If
    Next
    
    tabtotalmd(CInt(j - 0.5)) = total       'stockage dans le tabTotalmd à l'index j - 0.5 (l'index est un entier) -- Cint transforme la valeur en entier

    If total > 0 Then
        totalt = totalt + 1
        totalts = totalts + 1
    End If

End Sub

Dim i As Integer

     For i = 1 to 25
          Call Macro1(i)
     Next i

For i = 1
....

For i = 2
...

For i = 3
...

Sub Macro()
Dim i As Interger

For i = 0 to 25
'La c'est pour comptabiliser les périodes de 1 mois
Range("Q" & Range("Q65536").End(xlUp).Row + 1).Select
Range("Q2", ActiveCell.Offset(-3, 0)).Select
For Each Cell In Selection
If Cell.Value = i And IsEmpty(Cell.Offset(0, 1)) And IsEmpty(Cell.Offset(0, 3)) And IsEmpty(Cell.Offset(0, 4)) Then
total1m = total1m + 1
End If
Next
Range("T" & Range("T65536").End(xlUp).Row + 1).Select
Range("T2", ActiveCell.Offset(-1, 0)).Select
For Each Cell In Selection
If Cell.Value = i And IsEmpty(Cell.Offset(0, 1)) Then
total1m = total1m + 1
End If
Next
If total1m > 0 Then
Totalt = Totalt + 1
End If
Next i

'affichage éventuel pour une durée de 1 mois
If total1m > 0 Then
ActiveCell.Value = total1m 'le fameux résultat comptabilisant toutes les durées d'un mois
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = 1 'pour 1 mois
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "month" 'au singulier car il n'y a qu'un mois, ce sera au pluriel quand on passera à des durées supérieures
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=Tarif" '"Tarif" est le nom donné à une case qui contient le... tarif
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Application.CutCopyMode = False 'et ca c'est pour avoir le chiffre dans la case et non la formule.
ActiveCell.Offset(1, -4).Select 'pour sélectionner la prochaine case active pour la durée suivante
End If

Sub comptePeriode()
Dim i As Double

    For i = 1 To 3
        Call ModComptabilise.comptePeriodeSemaine(i, "R", "R2", "U", "U2")
    Next i
    
    For i = 1 To 25
        Call ModComptabilise.comptePeriodeMois(i, "Q", "Q2", "T", "T2")
    Next i
    
    For i = 1.5 To 24.5
        Call ModComptabilise.comptePeriodeMoisDemi(i, "Q", "Q2", "T", "T2")
    Next i


End Sub