Bonjour
'comment mettre en gras la ligne entière qui contient le total des banane
With F1.Range("B" & Ligne)
.Value = "Total Banane"
.Font.Bold = True
End With
'je veux qu'il fasse la recherchev que s'il y'a un des données au niveau de la colonne A
Sub recherche_libelle_OF()
If Range("B7") <> "" Then
With Range("B7:B" & Range("A" & Rows.Count).End(xlUp).Row)
.Formula = "=VLOOKUP(A7,OF!$J$2:$AH$20,25,FALSE)"
End With
End If
End Sub