Sub vireMinus_FG()
'D'après le code de Modeste :)
Dim MxCol&, MxRw&, col&, i&, j&, nbLig&
Dim T As Variant, Treport As Variant
With Sheets("Feuil1") 'A adapter
MxCol = .Cells(1, .Columns.Count).End(1).Column
For col = 1 To MxCol
MxRw = .Cells(.Rows.Count, col).End(xlUp).Row
If MxRw > nbLig Then nbLig = MxRw
Next col
T = .Range(.Cells(1, 1), .Cells(MxRw, MxCol))
End With
ReDim Treport(1 To UBound(T, 1), 1 To UBound(T, 2))
For j = LBound(T, 2) To UBound(T, 2)
Rw = 0
For i = LBound(T, 1) To UBound(T, 1)
If T(i, j) <> "" And UCase(T(i, j)) = T(i, j) Then
Rw = Rw + 1
Treport(Rw, j) = T(i, j)
End If
Next i
Next j
With Sheets("Feuil2") 'A adapter
.Cells.ClearContents
.Cells(1, 1).Resize(UBound(Treport, 1), UBound(Treport, 2)) = Treport
.Columns.AutoFit
End With
End Sub