voila le code que j'utilise :
Option Explicit
Sub CorrigeErrRefCompactTableauMac()
Application.ScreenUpdating = False
Dim t As Single
t = Timer
' Feuil 1 Résultat : Colonne N, O, P, Q, R, S, T, U
Dim FRes As Worksheet
Set FRes = Worksheets("feuil1")
Dim ResPlage As Range
Set ResPlage =...