Formule VBA avec (si et alors)

1) il me semble qu'il manque quelques mots dans la phrase suivante:
"Si la A affiche 9000, alors remplacer par Train dans la colonne Q et si vide écrire Train."
2) pourquoi veux-tu faire une fonction et pas une macro?
3) je pense que tu peux utiliser une formule standard pour séparer la date et l'heure de la colonne D et que ça s'inscrit dans la colonne W et X:

=ENT(D4)

en W4 et

=D4-W4

en X4. adapte ensuite les formats pour l'afficher comme tu le souhaites.

le code suivant agit en fonction de la valeur en colonne A, sur chaque ligne.
si la valeur est 9000, il vérifie si la valeur sur la même ligne en colonne J ou Q est vide. si oui, il remplace la valeur vide par "Train".
j'ai déjà préparé la détection de la valeur 7300 en colonne A, il suffit d'ajouter en dessous ce que tu veux faire dans ce cas-là.
je n'ai pas compris la phrase "remplacer par Train dans la colonne Q".

Option Explicit

Sub repp()
Dim code As Range, ligne As Long, feuille As Worksheet
Set feuille = Sheets("1")
For Each code In feuille.[A:A]
    ligne = code.Row
    Select Case code
        Case 9000:
            If feuille.Cells(ligne, "J") = "" Then
                feuille.Cells(ligne, "J") = "Train"
            End If
            If feuille.Cells(ligne, "Q") = "" Then
                feuille.Cells(ligne, "Q") = "Train"
            End If
        Case 7300:
        
    End Select
Next code
End Sub

il est recommandé de ne pas utiliser active et select, je suggère ceci pour ton autre macro:

Sub ardt()
'
' ardt Macro
'

'
Sheets("1").Columns("I:I").Replace What:="*Paris 10e*", Replacement:="75010", LookAt:= _
    xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
ThisWorkbook.Save
End Sub

peut-être ceci pour remplacer la cellule par "train" si "train" y est présent:

Sub repp()
Dim code As Range, ligne As Long, feuille As Worksheet
Set feuille = Sheets("1")
For Each code In feuille.[A:A]
    ligne = code.Row
    Select Case code
        Case 9000:
            If feuille.Cells(ligne, "J") = "" Then
                feuille.Cells(ligne, "J") = "Train"
            End If
            If feuille.Cells(ligne, "Q") = "" Then
                feuille.Cells(ligne, "Q") = "Train"
            End If
            If InStr(feuille.Cells(ligne, "J"), "train") > 0 Then
                feuille.Cells(ligne, "J") = "train"
            End If
            If InStr(feuille.Cells(ligne, "Q"), "train") > 0 Then
                feuille.Cells(ligne, "Q") = "train"
            End If
        Case 7300:
        
    End Select
Next code
End Sub

"formule fonctionne mais bizarrement en partie seulement": à quel endroit vois-tu une anomalie?

ce serait plus clair si tu expliquais en français ce que tu voulais obtenir, sans utiliser les formules.

tu souhaites donc que, si la cellule contient un des mots suivants (train, train(s), trin, trin(s)), on remplace le contenu par "train"?

alors peut-être ceci:

Option Explicit
Const ctrains As String = "train,trains,trin,trins"
Sub repp()
Dim code As Range, ligne As Long, feuille As Worksheet
Set feuille = Sheets("1")
For Each code In feuille.[A:A]
    ligne = code.Row
    Select Case code
        Case 9000:
            If feuille.Cells(ligne, "J") = "" Then
                feuille.Cells(ligne, "J") = "Train"
            End If
            If feuille.Cells(ligne, "Q") = "" Then
                feuille.Cells(ligne, "Q") = "Train"
            End If
            If plus(feuille.Cells(ligne, "J"), ctrains) Then
                feuille.Cells(ligne, "J") = "train"
            End If
            If plus(feuille.Cells(ligne, "Q"), ctrains) Then
                feuille.Cells(ligne, "Q") = "train"
            End If
        Case 7300:
        
    End Select
Next code
End Sub
Private Function plus(phrase As String, mots As String) As Boolean
Dim mot
For Each mot In Split(mots, ",")
    If InStr(phrase, mot) > 0 Then
        plus = True
        Exit Function
    End If
Next mot
plus = False
End Function

tu écris "J'ai essayé d'accumuler les mots mais il bloque à 11 mots.".
je ne sais pas ce que tu as essayé, et je ne comprends pas "il bloque à 11 mots": qui fait quoi quand et comment?

je ne sais pas ce que tu as essayé, ma boule de cristal est embrumée.

tu peux travailler ainsi sur plusieurs lignes:

Const ctrains As String = "train,trains" _
    + ",trin,trins"

peut-être en faisant

Case 9000, 9100 :

peut-être en écrivant une nouvelle sub qui appelle les autres sub, et en liant la nouvelle au bouton?