Bonjour,

Sur un de mes fichier qui fonctionnait bien auparavant, je rencontre un probleme avec Offset. Voici ma macro et l'erreur qui y apparait (en gras). merci par avance.

Dim i As Integer
Dim rng_Index_SuiviOS As Range
Dim rng_SuiviOS As Range


Set rng_Index_SuiviOS = Worksheets("Index_SuiviOS").Range("M14")

With Worksheets("SuiviOS")
Sheets("SuiviOS").Range("A14:K65500").ClearContents
Set rng_SuiviOS = .Range("A14")

For i = 0 To Worksheets("Index_SuiviOS").Columns(13).Find("*", , , , , xlPrevious).Row - 2
If rng_Index_SuiviOS.Offset(i, 0) = "1" Then (erreur 13 incompatibuilité etc....)

rng_SuiviOS.Offset(0, 0) = rng_Index_SuiviOS.Offset(i, -12)
rng_SuiviOS.Offset(0, 1) = rng_Index_SuiviOS.Offset(i, -11)
rng_SuiviOS.Offset(0, 2) = rng_Index_SuiviOS.Offset(i, -10)
rng_SuiviOS.Offset(0, 3) = rng_Index_SuiviOS.Offset(i, -9)
rng_SuiviOS.Offset(0, 4) = rng_Index_SuiviOS.Offset(i, -8)
rng_SuiviOS.Offset(0, 5) = rng_Index_SuiviOS.Offset(i, -7)
rng_SuiviOS.Offset(0, 6) = rng_Index_SuiviOS.Offset(i, -6)
rng_SuiviOS.Offset(0, 7) = rng_Index_SuiviOS.Offset(i, -5)
rng_SuiviOS.Offset(0, 8) = rng_Index_SuiviOS.Offset(i, -4)
rng_SuiviOS.Offset(0, 9) = rng_Index_SuiviOS.Offset(i, -3)
rng_SuiviOS.Offset(0, 10) = rng_Index_SuiviOS.Offset(i, -2)

Set rng_SuiviOS = rng_SuiviOS.Offset(1, 0)
End If
Next i

End With

End Sub