Vu que je vois des zéro nouvelle essai
=SI(ET(ET(NBCAR(A1) > 2; NBCAR(B1) > 2); OU(NBCAR(A1) > 2; NBCAR(B1) > 2)); A1 & " " & B1; SI(NBCAR(A1) > 2; A1; B1))
Et ça marche aussi avec une macro si jamais
Sub ConcatenerColonnes()
Dim ws As Worksheet
Dim celluleA As Range
Dim celluleB As Range
Dim resultat As String
Dim derniereLigne As Long
Dim i As Long
' Spécifiez la feuille de calcul
Set ws = ThisWorkbook.Worksheets("Feuil1")
' Trouvez la dernière ligne avec des données dans les colonnes A et B
derniereLigne = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
' Parcourez les lignes de A2 à la dernière ligne
For i = 1 To derniereLigne
Set celluleA = ws.Cells(i, "A")
Set celluleB = ws.Cells(i, "B")
' Vérifiez si les cellules contiennent plus de deux caractères
If Len(celluleA.Value) > 2 And Len(celluleB.Value) > 2 Then
resultat = celluleA.Value & " " & celluleB.Value
ElseIf Len(celluleA.Value) > 2 Then
resultat = celluleA.Value
ElseIf Len(celluleB.Value) > 2 Then
resultat = celluleB.Value
End If
' Affichez le résultat dans la colonne C (ou une autre colonne si nécessaire)
ws.Cells(i, "C").Value = resultat
Next i
End Sub