Bonjour je ne vois pas où se pose le problème  merci beaucoup
 
Sub Modif()
Dim Cel As Range, Cel2 As Range
 Set Cel = Range("B4:GK118" )
 
For Each Cel2 In Cel
 
If Cel2 = "#N/A" Then
Cel2 = Cells(Cel2.Row + 1, Cel2.Column)
'Sheet.Select
End If
Next
 
End Sub

Bonjour
 
Si tu nous disais ou ton code s'arrete ?
 
If Cel2 = "#N/A"  
 
Ca c'est pas bon, "#N/A" n'est pas une chaine mais une valeur d'erreur...
Essaie plutot if iserror(cel2)=true then
 
Pis tu as le droit de repondre au topic auquels on te repond aussi
Cf : http://forum.hardware.fr/hfr/Windo [...] 9178_1.htm
 
Cordialement

Je vais essayer merci beaucoup