If cellule vide goto

If range("AR4" & "AS4").value = "" go to line1 

'gjn
Range("AU4").Value = Range("AR4").Value - Range("D4").Value

'vbn
Range("AV4").Value = Range("AS4").Value - Range("E4").Value

For U = 9 To 40

Cells(U, 9) = Cells(U, 9) + Range("AU4").Value
Cells(U, 13) = Cells(U, 13) + Range("AU4").Value
Cells(U, 17) = Cells(U, 17) + Range("AU4").Value
Cells(U, 10) = Cells(U, 10) + Range("AV4").Value
Cells(U, 14) = Cells(U, 14) + Range("AV4").Value
Cells(U, 18) = Cells(U, 18) + Range("AV4").Value

Next U
Range("D4").Value = Range("AR4").Value
Range("E4").Value = Range("AS4").Value

'REMA
For h = 9 To 40
If Cells(h, 24) = "N/A" Then
Else
Cells(h, 24) = Cells(h, 24) - Feuil5.Range("AU4").Value
End If
Next h
'REM
For E = 9 To 40
If Cells(E, 24) = "N/A" Then
Else
Cells(E, 24) = Cells(E, 24) - Feuil5.Range("AV4").Value
End If
Next E

line 1 : 

'WFG

Feuil14.Range("O2:U2").ClearContents
Feuil5.Range("G4:Z4").ClearContents

Dim Compid As Range

Set Compid = Feuil14.Range("A:A").Find(what:=Range("B4").Value, LookIn:=xlValues, lookat:=xlWhole)
Feuil14.Range("O2").Value = Compid.Offset(, 1).Value
Feuil14.Range("P2").Value = Compid.Offset(, 2).Value
Feuil14.Range("Q2").Value = Compid.Offset(, 3).Value
Feuil14.Range("R2").Value = Compid.Offset(, 10).Value
Feuil14.Range("S2").Value = Compid.Offset(, 11).Value
Feuil14.Range("T2").Value = Compid.Offset(, 12).Value
Feuil14.Range("U2").Value = Compid.Offset(, 9).Value

Feuil5.Range("G4").Value = Feuil14.Range("O2")
Feuil5.Range("H4").Value = Feuil14.Range("U2")

'LES 

Feuil14.Range("N2:N15").ClearContents
Feuil5.Range("Z9:Z40").AdvancedFilter xlFilterCopy, CopyToRange:=Feuil14.Range("N2:N15"), Unique:=True
Feuil5.Range("I4") = Feuil14.Range("N2").Value
Feuil5.Range("K4") = Feuil14.Range("N3").Value
Feuil5.Range("M4") = Feuil14.Range("N4").Value
Feuil5.Range("O4") = Feuil14.Range("N5").Value
Feuil5.Range("Q4") = Feuil14.Range("N6").Value
Feuil5.Range("S4") = Feuil14.Range("N7").Value
Feuil5.Range("U4") = Feuil14.Range("N8").Value
Feuil5.Range("W4") = Feuil14.Range("N9").Value
Feuil5.Range("Y4") = Feuil14.Range("N10").Value

'Remplacer l

Set Compid = Feuil14.Range("B:B").Find(what:=Range("I4").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("J4").Value = Compid.Offset(, 8).Value
Set Compid = Feuil14.Range("B:B").Find(what:=Range("K4").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("L4").Value = Compid.Offset(, 8).Value
Set Compid = Feuil14.Range("B:B").Find(what:=Range("M4").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("N4").Value = Compid.Offset(, 8).Value
Set Compid = Feuil14.Range("B:B").Find(what:=Range("O4").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("P4").Value = Compid.Offset(, 8).Value
Set Compid = Feuil14.Range("B:B").Find(what:=Range("Q4").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("R4").Value = Compid.Offset(, 8).Value
Set Compid = Feuil14.Range("B:B").Find(what:=Range("S4").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("T4").Value = Compid.Offset(, 8).Value
Set Compid = Feuil14.Range("B:B").Find(what:=Range("U4").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("V4").Value = Compid.Offset(, 8).Value
Set Compid = Feuil14.Range("B:B").Find(what:=Range("W4").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("X4").Value = Compid.Offset(, 8).Value
Set Compid = Feuil14.Range("B:B").Find(what:=Range("Y4").Value, LookIn:=xlValues, lookat:=xlWhole)
Range("Z4").Value = Compid.Offset(, 8).Value
End Sub

Bonjour,

N'est-ce pas goto sans espace ?

ric

Bonsoir,

If range("AR4" & "AS4") ???
If Range("AR4")="" And Range("AS4") = ""

Et :

Then Goto....

bonsoir ric et cousinhb29

ric : oui toute a fait j'ai corrigé l'erreur mais ça ne marche toujours pas

cousinhb29 : je fait comme tu m'a expliqué ma ça ne marche pas en PJ le message d'erreur

Bonjour à tous ...

goto line1

donc plus bas, tu doit écrire

line1:  et non line 1 :

ric