If IsEmpty(Cells(a, b)) Then
f = a
g = b - 1
If Not IsEmpty(Cells(a, 2)) And b > init Then
init = b
GoTo Calcul3
End If
End If
If Not IsEmpty(Cells(a, 2)) Then
init = b
GoTo Calcul4
End If
If Not IsEmpty(Cells(a, 12)) And IsEmpty(Cells(a, 11)) Then
init = b
GoTo Calcul5
End If
init = b