Salut tout le monde,
Un peu après la guerre, dommage!
Un double-clic sur la première ligne d'infos à extraire démarre la macro.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tTab, iRow%
'
If Not Intersect(Target, Columns(1)) Is Nothing Then
Cancel = True
iRow = Target.Row
tTab = Range("A" & iRow & ":F" & Range("A" & Rows.Count).End(xlUp).Row).Value
For x = 1 To UBound(tTab, 1)
If InStr(UCase(tTab(x, 1)), "REPERE") > 0 Then _
sItem = IIf(InStr(UCase(tTab(x, 1)), "REPERES") > 0, "REPERES ", "REPERE "): _
tTab(x, 6) = Split(Split(UCase(tTab(x, 1)), sItem)(1), " ")(0)
Next
Range("A" & iRow).Resize(UBound(tTab, 1), 6).Value = tTab
End If
'
End Sub
A+