j'ai un code simple à effectuer et j'ai ce messge d'erreur :
le code est celui ci :
Sub reattributions()
Sheets("DEPART").Activate
Range("AR").Value = "QC00141_rea"
DerLigne = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To DerLigne
If Range("G" & i).Value = 1 Then
Range("AR" & i) = Range("H" & i)
ElseIf Range("G" & i).Value = 2
Then
Range("AR" & i) = ""
ElseIf Range("G" & i).Value = 3 Then
Range("AR" & i) = 1
End If
Next i
End Sub
je ne sais pas d'où peut venir l'erreur, merci beaucoup si jamais vous pouvez me dire d'où cela vient car le code marchait dans un autre module