Condition IF, then, else ?????

Bonjour à tous,

Ci-joint le code suivant qui est sensé démarrer lorsque je clique certains boutons dans un USF, mais ça bug ? (partie rouge)

Qq1 aurait-il une idée ?

Merci d'avance

(InsertionFor3, InsertionFor4 ... étant des macros)

Private Sub ForSup_Click()
'Regarde si for 2 est dèjà inscrit, si oui, alors regarde si for 3 est inscrit ... ect sinon annulation de l'action


If Sheets("Carnet de terrain").Range("B50") = "FOR 2 =" Then GoTo TESTF3 Else: InsertionFor2
End Sub

Sub TestF3()
If Sheets("Carnet de terrain").Range("B69") = "FOR 3 =" Then GoTo TestF4 Else: InsertionFor3
End Sub

Sub TestF4()
If Sheets("Carnet de terrain").Range("B88") = "FOR 4 =" Then GoTo TestF5 Else: InsertionFor3
End Sub

Private Sub ForageSupEXIT_Click()
Unload RajoutForage
Sheets("Carnet de terrain").Select
End Sub