Sub RechercheV()
'Touche de raccourci du clavier: Ctrl+Shift+V
Dim f, i%, col, n, h&, j%
f = Array("Base donnée", "Statistique Cie") 'noms des feuilles à traiter
For i = 0 To UBound(f)
With Sheets(f(i))
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
If i = 0 Then
col = Array(3, 10, 13, 16, 20) 'numéros des colonnes
n = Array(1, 4, 5, 6, 7) '3èmes arguments de la fonction
h = .Range("B" & .Rows.Count).End(xlUp).Row - 1 'hauteur à partir de B2
For j = 0 To UBound(col)
If h Then .Cells(2, col(j)).Resize(h) = "=VLOOKUP(B2,'" & f(1) & "'!C:I," & n(j) & ",FALSE)"
.Cells(h + 2, col(j)).Resize(.Rows.Count - h - 1).ClearContents 'RAZ en dessous
Next j
ElseIf i = 1 Then
h = .Range("C" & .Rows.Count).End(xlUp).Row - 1 'hauteur à partir de C2
.[J2].Resize(h) = "=VLOOKUP(C2,'" & f(0) & "'!B:B,1,FALSE)"
.Cells(h + 2, "J").Resize(.Rows.Count - h - 1).ClearContents 'RAZ en dessous
End If
End With
Next i
End Sub