Bonsoir Alex,
as-tu essayé de coller le code directement dans le module de ta feuille MAC en zappant mon fichier ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Target.Address = [F12].Address Then
'
Application.ScreenUpdating = False
'
iRow = Range("C" & Rows.Count).End(xlUp).Row
iIdx = 1
For x = 13 To iRow
If x Mod 8 <> 4 Then iIdx = iIdx + 1
Range("F" & x).FormulaLocal = IIf(x Mod 8 <> 4, _
"=SIERREUR(Correspondance!O" & iIdx & "*2+Correspondance!P" & iIdx & "*2,5+Correspondance!Q" & iIdx & "*3+Correspondance!R" & iIdx & "*3,5+Correspondance!S" & iIdx & "*4,5+Correspondance!T" & iIdx & "*7+Correspondance!U" & iIdx & "*11;"""")", _
"=SOMME(F" & x - 7 & ":F" & x - 1 & ")")
Next
'
Application.ScreenUpdating = True
'
End If
'
End Sub
D'après ce que j'ai lu, ce sont principalement les nouvelles fonctions de VB6 (inutilisées ici) qui posent problème en plus des contrôles ActiveX.
A+